Tengo las siguientes líneas:
open( LISTA, './lista.txt' );
@contenido = <LISTA>;
foreach my $linea (@contenido) {
$linea =~ s///g;
@contenido = substr( $linea, 0, 250 );
}
print @contenido;
Bien, lo que quiero es:
primero limpiar el archivo lista.txt de saltos de línea. Lo consigo con esta línea: $linea =~ s///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. ...