» codelab : http://codelab.fr/accueil » Forum : Codes & Travaux : http://codelab.fr/codes-et-travaux » Quelque chose dont je n'ai pas le titre : http://codelab.fr/2166 Ceci est la version imprimable d'un sujet du forum, pour retourner à la version complète : Quelque chose dont je n'ai pas le titre |
jkp — 2011-01-11 13:56:52 |
pour faire ca #!/usr/bin/perl #my $fichier1 = 0; my $nombredefichiers = `ls ./pnm/*.pnm | wc -l`; my $count = 650; my $j=0;while($j<50) { my ($sec,$min,$hour) = localtime(time); my $date = $sec."-".$min."-".($hour); my $i=0;while($i<=1221135) { $fichier=int(rand($nombredefichiers)); `dd if=./pnm/$fichier.pnm of=final-$date.pnm bs=1c count=$count skip=$i seek=$i`; $i+=$count; } $j++; } cela crée des pnm trafiques |