Foro - Perl en Español

por **Mar_tal** » 2012-04-24 15:16 @678

Hola, me acabo de unir a este foro. Soy nueva en Perl y necesito numerar las líneas de un programa ya que me tiene que salir el contenido del texto numerado.

El código que tengo hasta ahora es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open( FUENTE,    "$archivo1" )  || die "no se puede abrir el archivo\n";
open( RESULTADO, ">$archivo5" ) || die "no se puede abrir el archivo\n";
 
while ( $linea = <FUENTE> ) {
    if ( $linea =~ /EXPRESS/ ) {
        $linea =~ s/EXPRESS//;
        $linea =~ s/;/\n/g;
        $linea =~ s/EXPRESS//;
 
        print RESULTADO "$linea";
        print "$linea";
    }
}
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Bienvenida a los foros de Perl en Español, Mar_tal.

Este mismo ejercicio lo estamos resolviendo en el hilo Procesamiento básico de textos.

Lo que puedes hacer es partir la línea (con split) por donde están los ';', y con una variable contador, ir pintando los números más el contenido, línea a línea.

Foro - Perl en Español

Numerar saltos de línea

Numerar saltos de línea

Publicidad

Re: Numerar saltos de línea

¿Quién está conectado?