Foro - Perl en Español

por **punkscp** » 2010-05-06 23:40 @028

Saludos cordiales,

Espero puedan ayudarme con este problemita que me tiene dando vueltas la cabeza:

He estado intentando insertar una línea cada vez que pasen 10 líneas en un archivo de texto.
Lo único que pude hacer es insertar una línea después de cada línea. Ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
open $FH,"<mp31.lst" or die $!;
$flag=0;
while(<$FH>){
    print;
 
    {
        print "/home/mp3";
        print "psi.mp3\n";
        $flag=0;
    }
}
close $FH;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¿Cómo puedo hacer que imprima pero solo cada 10 líneas?

De antemano ¡les agradezco su atención!

#!/usr/bin/perl
open my $fichero, q[<], 'fichero_entrada.txt' or die "ERROR: $!\n";
 
while (my $linea = <$fichero>) {
    print $linea;               # Imprimimos la $línea del $fichero
 
    if ($. % 10 == 0) {         # Si el número de línea del fichero ($.), es múltiplo de 10
        print "INSERTO\n";      # Imprimimos un inserto
    }
}
 
close   $fichero;
 
__END__
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **punkscp** » 2010-05-07 11:23 @516

¡¡Muchas Gracias!!

Todo a la perfección =), esto de Perl es una maravilla.

De antemano, agradezco la respuesta, fue muy rápida.

Foro - Perl en Español

Insertar una línea cada 10 líneas en un archivo de texto

Insertar una línea cada 10 líneas en un archivo de texto

Publicidad

Re: Insertar una linea cada 10 lineas en un archivo de texto

Re: Insertar una linea cada 10 lineas en un archivo de texto

¿Quién está conectado?