Foro de programacion

#!/usr/bin/perl -w

use strict;

my ($var); #Esta variable contendra numeros, desde el 0000 hasta el 9999
# Puede decirse que es la primera parte del nombre del archivo/fichero o lo que sea
my ($mid) = "e164.arpa"; # Esta es la segunda parte del nombre del archivo/fichero o lo que sea

my ($i); # Este es un contador para generar los nombres de ficheros/archivos o lo que sea

#
# Ahora viene la parte interesante
#

# Quiero suponer que vas a entrar en un loop para generar los nombres, asi que haya vamos

#
# Este loop es el que sera nuestro contador
#
for( $i = 0; $i < 10000; $i++) {

#
# Aqui generamos el consecutivo del archivo, ajustado con ceros a la izquierda
# los numeros que obtendremos serian 0000, 0001, 0002, 0003, 0004, Quedo Claro ????
#
$var = '0' x ( 4 - length($i) ) . $i;

#
# Ahora vamos a generar el archivo/fichero o como quieras llamarle
#

open S, ">$var.$mid" or die "No es posible abrir el fichero \"$var.$mid\" para escritura.\n";

#
# Ya esta creado el fichero, si quieres insertarle algo de informacion
# Tendria que ser en este momento
#
# print S "la linea de salida al fichero\n";

#
# Cerramos el fichero que acabamos de crear
#
close S;

#
# Ya terminamos la creacion de nuestros ficheros/archivos o lo que sea
# regresamos al loop principal
}

#
# Voila !!!! ya tenemos generados 10,000 ficheros
#

#!/usr/bin/perl
foreach $i ( "0000" .. "9999" )
{
    $fichero = "$i.e164.arpa";
    open S, ">$fichero"
        or die "No es posible abrir el fichero $fichero: $!";
    print S "contenido\n";
    close S;
}