Script de dix chiffres aléatoire en PERL

Fermé
flow - 20 oct. 2010 à 21:41
Bonjour,

Je souhaite faire un script de dix chiffres posé aléatoirement(sauf les 2 premier)mais je n'en obtiens que 8 pour l'instant... comment arriver a dix?

voici le script que j'utilise:

#!/usr/bin/perl
use strict;
use warnings;
my $i;
my $j;
for ($i = 0;$i < 5000000;$i++) {
     my $pass = "04";
     my @liste = ("0", "1", "2", "3", "4", "5", "6", "7", "8", "9"); { 
               $pass .= $liste[int(rand(10))];
     }

     $pass .= int(rand(10));

     open my $logfile, ">>", "pass.lst" or die "Could not open pass.lst: $!";
     print $logfile $pass."\n";
     print $i."\n";
}