some-usable-scripts/PERL_Language/lePlusGros.pl

46 lines
1.1 KiB
Perl
Raw Normal View History

2011-02-03 13:47:29 +01:00
#!/usr/bin/perl -w
# leplusGros.pl <rep>
# donne le nom du fichier ordinaire localisé ds <rep>
# (& directement subordonné) le plus GROS (en taille)
# on se base sur le champ size (pas le nbre de
#blocs alloués !)
use strict;
use File::stat;
# déclaration des variables
my $rep ;
# répertoire en argument
my $size ;
my $max_size = 0 ;
# initialisation du max
my $heavy_file_name ;
# nom du fichier le + lourd
my @files ; # liste des objets du répertoire
my $file ;
my $count_file = 0 ;
if ( @ARGV != 1) {
print "usage : $0 <repertoire >\n" ; exit (-1) ;
}
$rep = $ARGV[0] ;
die "repertoire inconnu ou pas en droit de lecture !" unless -d $rep and -r $rep ;
# récupérer la liste des objets du répertoire
# (fichiers "cachés" compris)
@files = glob "$rep/* $rep/.*" ;
foreach $file(@files)
{
my $sb=stat($file);
$size=$sb->size;
print $file," fait ", $size, " octets\n";
if($size > $max_size)
{
print "C'est lui le plus gros !\n";
$heavy_file_name=$file;
$max_size=$size;
}
$count_file++;
}
print "Le fichier le plus gros est $heavy_file_name et fait $max_size octets\n";