Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset
Comments Off

Perl: Trouver la taille d’un dossier

Your ads will be inserted here by

Easy AdSense.

Please go to the plugin admin page to paste your ad code.


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";

Comments are closed.

Sex Cams Movable Theme