At 11:43 25.06.2001 +0200, [EMAIL PROTECTED] wrote:
>En réponse à Aaron Craig <[EMAIL PROTECTED]>:
>
> > foreach my $fichier (@fichiers)
> > {
> > my $result = (-e $fichier)? "$fichier fait (stat $fichier)[7]
> > octets\n" :
> > "$fichier inexistant \n";
> > print RESULT $result;
> > }
> It's still not checking the size .. :-(
>
>I dont know what to do .. ?
oops -- that's what I get for not checking the code before sending it out :()
you'll have to do this:
foreach my $fichier (@fichiers)
{
my @asFileStats = stat $fichier;
my $result = ($asFileStats[7] ne "")? "$fichier fait
$asFileStats[7] octets\n" : "$fichier inexistant \n";
print RESULT $result;
}
Aaron Craig
Programming
iSoftitler.com
