Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset
Comments Off

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

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 = (".") unless @ARGV;
my ($taille_fichier, $nom_fichier) = (-1, "");
sub lePlusGrand {
    return unless -f && -s _ > $taille_fichier;
    $taille_fichier = -s _;
    $nom_fichier = $File::Find::name;
find(\&lePlusGrand, @ARGV);
print "le fichier le plus grand
  de @ARGV  est $nom_fichier ($taille_fichier octets)\n";

Comments are closed.

Sex Cams Movable Theme