Discussion :

[mashu]

Bonjour,

j'ai une question toute simple, mais malheureusement je débute en PERL.

Ma fonction dois lire dans un répertoire (une ligne de commande saisi par l'utilisateur dans un terminal), et mettre le nom des fichiers trouvés dans des variables (je ne connais donc pas les noms exactes mais c'est toujours OS*****.log, CPU*****.log et USER*****.log)

Je pense qu'une fonction doit exister, mais je n'arrive pas à mettre la main dessus...

Merci.

[Arioch]

Bonjour, il te faut utiliser les opérateurs de tests sur fichiers

[Jasmine80]

Coucou,

Pour obtenir la liste des fichiers, tu peux utiliser readdir ou glob.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my @files_list = glob('$rep/*');

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
opendir (REP, $repertoire) or
die "impossible d'ouvrir le repertoire $repertoire\n";
# récupérations de tous sauf . et ..
my @files_list = grep { !/^\.\.?$/ } readdir(REP);
closedir (REP);

Si besoin est, tu peux toujours tester par la suite via des expressions régulières les noms des fichiers de la liste.

[mashu]

Génial ! C'est exactement ce que je voulais

merci a tous les 2...