Powered by Ajaxy
Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset

Perl: Trouver la taille d’un dossier


{filelink=15267#}

#!/usr/local/bin/perl
 
use File::Find;
@ARGV = ("C:\\BD") unless @ARGV;
# stocker la somme de tous les fichiers des répertoires et sous répertoires
my $somme_octet = 0;
find sub { $somme_octet += -s }, @ARGV;
print "@ARGV contient $somme_octet octets\n";

No comments yet.

Leave a Comment