Foro - Perl en Español

por **colorado** » 2011-07-26 14:21 @639

Tengo las siguientes líneas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open( LISTA, './lista.txt' );
@contenido = <LISTA>;
 
foreach my $linea (@contenido) {
 
    $linea =~ s/[\t\n]//g;
 
    @contenido = substr( $linea, 0, 250 );
 
}
 
print @contenido;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Bien, lo que quiero es:

primero limpiar el archivo lista.txt de saltos de línea. Lo consigo con esta línea: $linea =~ s/[\t\n]//g; pero después quería mostrar los primeros 250 bytes del archivo lista.txt pero el script solo trabaja sobre la primera línea del lista.txt.

¿Cómo puedo hacer que muestre los 250 primeros bytes?

Una cosa es querer sacar los 250 primeros caracteres de todo el archivo y otra es sacar los 250 primeros caracteres de cada línea de todo el archivo.

En el segundo caso, solo tienes que imprimir el resultado del substr().

En el primer caso, te vale con unir todas las líneas de @contenido en un solo escalar (con join()), y luego aplicar el substr().

por **colorado** » 2011-07-26 17:02 @751

Muchas gracias, explorer.

Ahora lo veo mucho más claro.
Así me quedó:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open( LISTA, './lista.txt' );
@contenido = <LISTA>;
 
foreach my $linea (@contenido) {
 
    $linea =~ s/[\t\n]//g;
 
}
 
my $string = join( "", @contenido );
$str = substr( $string, 0, 250 );
 
print "$str";
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Vaya lío que tenía :oops:

por **explorer** » 2011-07-26 17:26 @768

Esta es mi versión (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use 5.010;
use File::Slurp;
 
my $archivo;
 
$archivo =  read_file('./lista.txt');
$archivo =~ s/[\t\n]+//g;
$archivo =  substr $archivo, 0, 250;
 
say $archivo;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Problema con substr y array

Problema con substr y array

Publicidad

Re: Problema con substr y array

Re: Problema con substr y array

Re: Problema con substr y array

¿Quién está conectado?