[TP-FDG] Reconnaitre le fichier le plus gros ...

[cipher16]

Alors bon ce script à une histoire ... c'était un TP noté ... et pis a l'URS on était un peu serré, et donc ben un pote copiait sur moi ... donc arme ultime j'ai changé les noms des variables ... ce qui donne une superbe phrase à la fin ...

Code: Tout sélectionner

#!/usr/bin/perl
$asshole=shift;
die "Pas un répertoire" unless -d $asshole;
@fuckedup = glob "$asshole/* $asshole/.*";
foreach my $fucked (@fuckedup){if( -f $fucked){push @fuck_u,$fucked;}}
$bitch=shift(@fuck_u);
$biatch = (stat( $bitch ))[7];
$dick = $biatch;
$usuck = $bitch;
$suck = $bitch;
foreach my $fuck (@fuck_u)
{
   $biatch<=(stat( $fuck ))[7]?$biatch=(stat( $fuck ))[7]:$biatch=$biatch;
   $biatch<=(stat( $fuck ))[7]?$usuck=$fuck:$usuck=$usuck;
   $dick>=(stat( $fuck ))[7]?$dick=(stat( $fuck ))[7]:$dick=$dick;
   $dick>=(stat( $fuck ))[7]?$suck=$fuck:$suck=$suck;
}
$#fuck_u>0?print "$usuck : $biatch\n$suck : $dick\n":print "";