Discussion :

[jer79]

Bonjour,
Ma demande est certainement très simple mais je ne connais absolument rien au Perl et c'est urgent.
Je cherche une fonction ou un méthode qui me retourne le nom du fichier .zip qui se trouve dans un répertoire, s'il existe.
Merci d'avance pour vos réponses.

[2Eurocents]

Bonjour,

Quelquechose dans le genre :

Code :

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

@liste=</mon_chemin/*.zip>; print "$_\n" foreach (@liste);

Ca s'appele un GLOB, il me semble ... Attention, toutefois, j'ai souvenir de quelques difficultés avec les GLOBs et les noms de fichiers contenant des blancs qu'il faut ensuite protéger ...

Une fois passé l'urgence, n'hésite pas à investir dans l'apprentissage : Perl, c'est bien.

[GLDavid]

Pour ajouter à ce que dit l'excellentissime 2Eurocents, cette question a été partiellement abordée dans ce thread: http://www.developpez.net/forums/sho...d.php?t=267367
Le problème du glob étant sa grosse consommation de ressources sur de très nombreux fichiers. Ma méthode se veut moins gourmande.
J'ajoute que si tu es néophyte au Perl, tu as dans ma signature ainsi que celle de 2Eurocents, les liens vers mes cours (simple d'accès !) de Perl ainsi que vers notre FAQ.

En espérant t'avoir aidé.

@++

[jer79]

Merci pour votre réponse,
cette solution me plait bien si elle consomme moins de ressource:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
use strict;
 
my $rep = "/home/gldavid/monrep";
opendir DIR,$rep or die "$!\n";
#Récupération des fichiers avec l'extension .task 
my @files = grep { /\.task$/ } readdir(DIR);
close DIR;
while my $file (@files){
my $absolute_namefile = $rep."/".$file;
#Processing de chaque fichier
}

Je vais tester.
Merci

[MarneusCalgarXP]

Comme tu peux lire dans nos signatures,