#!/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"; |
----------------------------------------------------------------------------
