Foro - Perl en Español

por **erv-Z** » 2009-09-09 12:55 @580

Buenas a todos.

Tengo una pequeña duda: no sé cómo hago para leer el número de línea de un archivo de texto. Lo único que me puedo imaginar es que se podría hacer con for().

Saludos.

open(GOL,"ar.txt") || die "Archivo no encontrado";
@gol=<GOL>;
close (GOL);
 
foreach $gol(@gol) { 
    chomp($gol);
    while (<$gol>) {                  # Vamos leyendo línea a línea del $fichero abierto antes
        print "Línea: $gol. => $_\n"; # Imprimimos qué número de línea es y la propia línea
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-09-09 14:01 @626

Vaya código más terrible... ¿pero tú sabes lo que has escrito? :shock:

Analicemos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(GOL,"ar.txt")# Abrir el fichero
||die"Archivo no encontrado";
@gol=<GOL>;# Lo leemos entero, a un arreglo
close GOL;

foreach$gol(@gol){# Para cada línea leída
chomp($gol);# Le quitamos el carácter de fin de línea

while(<$gol>){# Leemos una línea de un fichero asociado a $gol...
#   es decir: intentamos usar una línea del fichero ($gol)
#   como descriptor de fichero => ERROR
print"Línea: $gol. => $_\n";# Imprimimos la línea y la línea leída del fichero fantasma => ERROR
}
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¡Qué horrible! :cry:

Yo supongo que querrías haber hecho esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open GOL,"ar.txt"# Abrir el fichero
ordie"Archivo no encontrado";
while(<GOL>){# Leemos una línea del fichero (y se guarda en $_)
chomp;# Quitamos el retorno de carro (de $_)
print"Línea: $. => $_\n";# Imprimimos número de línea y la propia línea
}
close GOL;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **erv-Z** » 2009-09-09 14:04 @628

Gracias, me resultó.

por **erv-Z** » 2009-09-09 14:13 @634

Me resultó, pero me surgió un pequeñísimo problema, pues es que trataba de hacerlo con una variable, en vez de la variable especial GOL y no pude.

por **explorer** » 2009-09-09 15:31 @688

GOL no es una variable especial, es un descriptor o manipulador (handle) de fichero.

Lo que sí puedes hacer es cambiar GOL por una variable que realice la misma función:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

openmy$gol,"ar.txt"ordie"Archivo no encontrado";
while(<$gol>){
chomp;
print"Línea: $. => $_\n";
}
close$gol;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pero, ¡ojo!: $gol NO almacena la línea que estás leyendo. Es un descriptor de fichero, y solo eso.

Si quieres guardar la línea en otra variable aparte de en $_, puedes hacer:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

openmy$gol,"ar.txt"ordie"Archivo no encontrado";
while(my$linea=<$gol>){
chomp$linea;
print"Línea: $. => $linea\n";
}
close$gol;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **erv-Z** » 2009-09-09 15:57 @706

oka, thanks, ahora entendí mejor.

Foro - Perl en Español

Leyendo números de línea de un archivo de texto

Leyendo números de línea de un archivo de texto

Publicidad

Re: [Duda] Leiendo numeros de linea de un archivo de texto

Re: Leyendo números de línea de un archivo de texto

Re: Leyendo números de línea de un archivo de texto

Re: Leyendo números de línea de un archivo de texto

Re: Leyendo números de línea de un archivo de texto

Re: Leyendo números de línea de un archivo de texto

Re: Leyendo números de línea de un archivo de texto

Re: Leyendo números de línea de un archivo de texto

Re: Leyendo números de línea de un archivo de texto

¿Quién está conectado?