Re: Infos d'un fichier en Perl

ou plus simplement:

#!/usr/bin/perl -w

if ( -s "/var/adm/attach.txt" < 100*1024 )
die;
}

print "Le fichier est plus grand que 100ko\n" ;

ou plus simplement:

#!/usr/bin/perl -w
foreach (@ARGV) {
print "Le fichier $_ correspond au critere" if ( -s > 100*1024);
}

Qui testera tout nom de fichier passé en paramêtre.

Ref sur les fonctions -X:
http://perldoc.perl.org/functions/-X.html