Date création : 10-01-2008 21:29:59
Date de la dernière modification : 10-01-2008 21:31:36
 Vous êtes dans : Langage Perl Astuces / RépertoiresAfficher le nombre de script perl d'une arborescence de répertoires
Enoncé
Afficher le nombre de fichiers (scripts Perl) d'une arborescence de répertoires. Nous supposons que les fichiers contenant #!/usr/bin/perl sont des scripts Perl.
#!/usr/bin/perl
#
use warnings;use strict;
use File::Find;
use File::Basename;
my %perl_script;
sub fic_perl{
$perl_script{dirname($File::Find::name)}++ if -f
and grep { /\#!\s*\/usr\/bin\/perl/ } `cat $_`;
}
find (\&fic_perl,$ARGV[0]);
foreach (sort keys %perl_script){
print "$_ => $perl_script{$_}\n";
}
__END__
|
Le résultat
lami20j@debian:~/trash$ perl exo_tematek2.pl /home/lami20j/bin/my_perl_script/
/home/lami20j/bin/my_perl_script => 114
/home/lami20j/bin/my_perl_script/Classe => 3
/home/lami20j/bin/my_perl_script/ccm_perl => 27
/home/lami20j/bin/my_perl_script/exo_daemon => 8
/home/lami20j/bin/my_perl_script/perl-en-action.src => 139
lami20j@debian:~/trash$ perl exo_tematek2.pl ../bin/my_perl_script/
../bin/my_perl_script => 114
../bin/my_perl_script/Classe => 3
../bin/my_perl_script/ccm_perl => 27
../bin/my_perl_script/exo_daemon => 8
../bin/my_perl_script/perl-en-action.src => 139
|
|
