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

Perl: Trouver le plus grand fichier d’un répertoire

sub lePlusGrand {
    return unless -f && -s _ > $taille_fichier;
    $taille_fichier = -s _;
    $nom_fichier = $File::Find::name;

Perl: Trouver la taille d’un dossier

la somme de tous les fichiers des répertoires et sous répertoires
my $somme_octet = 0;
find sub { $somme_octet += -s },

Perl: Lister les fichiers d’un répertoire qui contiennent des textes

$dir = "c:/";
print "Voici les fichier textes de $dir:\n";
#!/usr/local/bin/perl 
opendir(BIN, $dir) or die