Lo incluire en la siguiente version pero de momento...
Copia esto en un archivo de texto:
#!/usr/local/bin/perl
my $tiempoe= time();
my $primer = $ARGV[0];
my $ultimo = $ARGV[1];
open(DICCIONARIO,">diccionario.txt")|| die "No se puede crear\n";
my $caracteres = length($ultimo);
for ($i=$primer;$i != $ultimo+1;$i++)
{
my $ceros = $caracteres - length($i);
if ($ceros > 0)
{
for($e=1;$e != $ceros+1;$e++)
{
$i = "0".$i;
}
print DICCIONARIO $i."\n"
}
else
{
print DICCIONARIO $i."\n"
}
}
close(DICCIONARIO);
my $tiempot = time()-$tiempoe;
print "Proceso Terminado\n";
print "Tiempo insumido: $tiempot seg.\n";
Ejecuta en una consola:
perl nombre_archivo <num_inicio> <num_fin>
Ejemplo:
perl generador 00000000 10000000
Saludos
P.D el codigo no es mio, y no cito la fuente por que no se de quien es
|FluiD|
