Discussion :

[CKLN00]

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

[Jasmine80]

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

Tant mieux si nous avons pu t'aider. Repose toi bien et reviens nous plein d'énergie. C'est vrai que je dois également à ce forum les progrès énormes que j'ai fait en perl. Quand je réouvre mes script datant de 2 ans, mes cheveux se dressent d'effroi sur ma tête. J'utilisais des boucles partout, je ne connaissais ni map ni grep ... ça ne ressemblait à rien. J'ai encore plein de choses à apprendre mais je suis sur la bonne voie. Pour conclure, passe de bonnes vacances (et n'oublie pas la crème solaire )

[chong]

Perso je pense la même chose, sans ce forum j'aurais jamais pu apprendre perl aussi vite, bien que je sois bien loin de maîtriser le langage, j'ai encore trop de choses à apprendre !! C'est super agréable de pouvoir compter sur le forum en cas de gros pépins (enfin pas si gros que ça parfois...), même si à la rentrée je ne ferai plus de perl, je compte quand même progresser et donc je passerai quand même encore et toujours pour poser mes questions qui tuent !!
MERCI à tous!

Et surtout Bonnes vacances CKLN00 !! et puis aux autres qui en ont aussi !!