Foro - Perl en Español

por **charlygarza** » 2013-05-25 17:21 @764

Cree un archivo tipo texto con las siguientes características:
- Cada palabra (campo) deberá estar separado por ':' (dos puntos) sin espacios intermedios
- El último dato solamente lleva ENTER, NO COLOCAR ':' (dos puntos)
- Que contenga 4 campos
Abra el archivo de modo lectura
Imprima los registros con todos sus campos
Abra el archivo de modo lectura-escritura
Imprima su contenido
Genere nuevos datos
Imprima contenido
Abra el archivo de modo concatenación
Agregue 3 nuevos registros

Tengo problema que al ingresar los registros me sobreescribe los 4 iniciales.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# Archivos OPEN
 
print "INFORMACIÓN ARCHIVO DATOS.TXT EN MODO LECTURA \n";
print "=================================================================== \n";
open(IN, "<D:/etc/datos.txt");
while($linea = <IN>) {
       ($pnombre,$snombre,$papellido,$sapellido)=split(/:/, $linea, 7);
       print "Primer NOmbre: ".$pnombre. "    Segundo nombre: ". $snombre.  " \nPrimer apellido: ". $papellido. "   segundo apellido: ". $sapellido."\n";
}
close IN;
 
 
print "\nINFORMACIÓN ARCHIVO DATOS.TXT EN MODO LECTURA Y ESCRITURA \n";
print "=================================================================== \n";
open(IN, "+<D:/etc/datos.txt");
while($linea = <IN>) {
       ($pnombre,$snombre,$papellido,$sapellido)=split(/:/, $linea, 7);
       print "Primer NOmbre: ".$pnombre. "    Segundo nombre: ". $snombre.  " \nPrimer apellido: ". $papellido. "   segundo apellido: ". $sapellido."\n";
}
close IN;
 
print "\nINFORMACIÓN ARCHIVO DATOS.TXT EN MODO LECTURA Y ESCRITURA CON NUEVOS DATOS \n";
print "=================================================================== \n";
open(IN, "+<D:/etc/datos.txt");
 
       print IN "diego:andres:corado:lima\n";
       print IN "liza:fernanda:corado:lima\n";
       
 
close IN;
 
print "\nINFORMACIÓN ARCHIVO DATOS.TXT EN MODO LECTURA CON NUEVOS DATOS \n";
print "=================================================================== \n";
open(IN, "<D:/etc/datos.txt");
while($linea = <IN>) {
       ($pnombre,$snombre,$papellido,$sapellido)=split(/:/, $linea, 7);
       print "Primer NOmbre: ".$pnombre. "    Segundo nombre: ". $snombre.  " \nPrimer apellido: ". $papellido. "   segundo apellido: ". $sapellido."\n";
}
close IN;
 
print "\nINFORMACIÓN ARCHIVO DATOS.TXT EN MODO CONCATENACIÓN \n";
print "=================================================================== \n";
open(IN, ">>D:/etc/datos.txt");
while($linea = <IN>) {
       ($pnombre,$snombre,$papellido,$sapellido)=split(/:/, $linea, 7);
       print "Primer NOmbre: ".$pnombre. "    Segundo nombre: ". $snombre.  " \nPrimer apellido: ". $papellido. "   segundo apellido: ". $sapellido."\n";
}
close IN;
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

El problema está a la hora de abrir el archivo en modo lectura/escritura.

Nada más abrirlo, mandas la orden de imprimir en él dos nuevos registros. El efecto es el que comentas: sobreescriben a los registros anteriores. Eso es debido a que en el momento de abrirlo, el "puntero" de lectura/escritura del archivo, está en la primera posición. Y es ahí donde estás mandando los dos nuevos registros, con lo que los anteriores quedan sobreescritos.

La solución es posicionar el puntero al final del archivo, para que los nuevos se agreguen ahí.

Eso lo puedes hacer con la instrucción

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

       seek(IN, 0, 2);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Más información en perldoc -f seek

Foro - Perl en Español

Insertar registros a archivo y mostrarlos

Insertar registros a archivo y mostrarlos

Publicidad

Re: Insertar registros a archivo y mostrarlos

¿Quién está conectado?