Foro - Perl en Español

[creating021]

Hola a todos.
Miren, tengo un archivo de 200 o más líneas y quiero modificar sólo la número 153 sin usar arrays para el cometido y sin reescribir el archivo por completo.
También sería bueno agregar una línea en un lugar del texto.
¿Como hago esto?
¿Hay algún modulo?
Gracias.

[explorer]

Sí que hay módulos, como File::Alter y Text::Buffer.

Otra forma es leer el fichero línea por línea y cuando se llegue a la que nos interesa ($.), cambiarla. Al final, grabar el resultado (el nuevo fichero cambiado).

Se podría intentar usar el seek para posicionarnos dentro del fichero, pero tendríamos muchos problemas para ajustar la posición de las siguientes líneas (un fichero de texto no es una base de datos con registros de igual tamaño).

Como no quieres usar arrays, tampoco te vale usar Tie::File o el monstruoso IO::All, pero te incluyo las referencias por si te sirven.

[kidd]

Hola:

En el cookbook de Perl puedes encontrar una solución para lo que necesitas:

Código: Seleccionar todo

open my $FILE, '+<', $archivo or die "No puedo leer $archivo: $!\n";

my $out= '';

while (<$FILE>) {
    #encuentra la línea que quieres editar y editala
    $out .= $_;
}

seek($FILE, 0, 0) or die "No se pudo hacer seek a $archivo: $!\n";
print {$FILE} $out;
truncate($FILE, tell($FILE)) or die "No se pudo truncar $archivo: $!\n";
close $FILE;


Saludos

[Perl user]

Con un excelente performance para tareas como esa intenta el módulo Tie::File y accesa el archivo como si fuera un array ( y no... nada que ver con meter todo el archivo a un array directamente en memoria ) además que es parte de la biblioteca estándar de Perl.

Best regards,

[kidd]

Hola:

Usando el módulo Tie::File como te recomienda Perl User, es muy sencillo lograr lo que quieres.

Por ejemplo, editar la línea 153 así como quieres es tan sencillo como:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

use strict;
use Tie::File;


#Archivo que quieres editar
my $archivo = '/ruta/a/tu/archivo.txt';


#Definimos el array que vamos a usar
my @contenido;


#Empieza la magia
tie @contenido, 'Tie::File', $archivo or die "No se logró hacer el tie: $!";


#Cambiamos la línea 153
# Recuerda que como el array tiene un elemento 0
# la línea 153 realmente es el elemento 152
$contenido[152] = 'Nuevo contenido';


#Eso es todo...wow! ¡Magia!
untie @contenido;

Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4

El módulo hace un cache del archivo para agilizar las cosas, sin embargo tienes la capacidad de modificar la cantidad de memoria que quieres que use el módulo.

Por ejemplo, puedes poner el límite de memoria a 0, evitando de esta manera que se haga un cache del archivo, por lo que el módulo lee directamente del disco:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

tie @contenido, 'Tie::File', $archivo, memory => 0 or die "No se logró hacer el tie: $!";

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Lógicamente entre más capacidad de cache tengas, más rápido se va a realizar el trabajo.

Saludos

[creating021]

Muchas gracias a todos por las respuestas.

[elnico]

Hola.
La verdad que está muy bueno el ejemplo de kidd sobre Tie::File.

Pero tengo una duda medio tonta: ¿no hace falta instalar ese módulo, no?

Porque lo probé con una versión de Perl sin haberlo instalado y me funcionó sin problemas.

Saludos.

[elnico]

Me olvidé de aclarar que lo probé en un ActivePerl y lo pienso implementar también en un Linux.

[explorer]

Es uno de los módulos CORE (módulos que acompañan al binario perl en cada distribución), así que deberá estar.

[elnico]

Me quedo más tranquilo.
Gracias por responder.