Salut à tous, bon voila j'allais poser une question et puis ... je me suis souvenus que djibril y avais déjà répondu dans la donc bha merci djibril d'avoire répondu à ma question avant que je la pose
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;
      }
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 ?

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