Bonjour,
Je suis plutôt très débutant en Perl et je deviens fou ! J'ai écrit ce petit bout de script qui, je pensais, devait me renvoyer les fichiers contenus dans les sous-répertoires d'un répertoire courant... Mais ça ne marche pas : il ne m'affiche que la liste des répertoires contenus dans le répertoire courant et apparemment n'entre jamais dedans et ne fait pas la liste des fichiers... Si quelqu'un a une suggestion, je suis preneur
Hugo
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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37 #!/usr/bin/perl -w use strict; use warnings; my $f = undef; my $d = undef; my @liste_f = undef; opendir Rl, '.' or die "M"; my @liste_d = readdir(Rl); closedir Rl; foreach $d (@liste_d) { if(-d $d) { print $d."\n"; if($d ne '.' and $d ne '..') { opendir Rf, $d or die "N"; @liste_f = readdir(Rf); foreach $f (@liste_f) { if(-f $f) { print $f; } } closedir(Rf); } } else { print "\n"; } }
Partager