46 lines
1.1 KiB
Perl
46 lines
1.1 KiB
Perl
|
#!/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";
|