Salut à tous, bon voila j'allais poser une question et puis ... je me suis souvenus que djibril y avais déjà répondu dans ladonc bha merci djibril d'avoire répondu à ma question avant que je la pose
Dailleur a ce propos pourquoi la section astuce sur les fichiers n'est-elle pas une sous section (ou une partie) de la section les fichiers ?lister un répertoire (non récursif)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 # Nom : lister_fichiers # retourne : tableau contenant les fichiers sub lister_fichiers { my ($repertoire) = @_; my @fichiers = (); opendir (my $rep_fh, $repertoire) or die "impossible d'ouvrir le repertoire $repertoire\n"; my @file_rep = grep { !/^\.\.?$/ } readdir($rep_fh); closedir ($rep_fh); foreach my $nom (@file_rep) { if ( -f "$repertoire/$nom") { push (@fichiers, "$repertoire/$nom"); } } return @fichiers; }
et puis aussi pour dire qu'aujourd'hui c'est mon dernier jours sur le forum avant un bon gros mois
Because of vacances time !![]()
et pour vous remercier de m'avoir tant aider pendant ces 4 mois que j'ai passer à faire du perl en stage
sans vous je pense pas que j'aurais réaliser la moitier de ce que j'ai fait
alors MERCI et à la prochaine![]()
![]()
![]()
Partager