UNIDAD 5: REGISTROS Y ARCHIVOS SECUENCIALES

TEMA PERL 10: OPERACIONES CON CAMPOS

En este TEMA PERL se analiza la manera de poder realizar operaciones o procesos con los campos de los registros en el archivo secuencial, lo unico importante a considerar es que los campos del registro son en cierta medida igual que variables normales y por tanto se pueden proceesar de manera normal como lo muestra el ejemplo.

prog26.pl

#! /usr/bin/perl -w
# usando modulo o libreria CGI
use CGI;
# creando el OBJETO de tipo CGI
$q = new CGI;
# mandando servidor los encabezados de la pagina html
print $q->header;
print $q->start_html();
# creando una form o ventana
print $q->startform();
# creando un submit button
print "EDADES MAS 100";
print $q->submit('SUMAR');
# cerrando la forma
print $q->endform();
# cerrando html
print $q->end_html;
if ( $q->param('SUMAR') )
{
# abriendo archivo original para lectura
open(ARCHIVO1, "DATOS.DAT") || die "No se pudo abrir archivo";
# abriendo archivo temporal para escritura
open(ARCHIVO2, ">> TEMP.DAT") || die "No se pudo abrir archivo";
while(!eof(ARCHIVO1)){
# leyendo campos archivo original
$clave=<ARCHIVO1>;
$nombre=<ARCHIVO1>;
$edad=<ARCHIVO1>;
# aumentando en 100 las edades
$edad = $edad + 100;
# grabar al archivo temporal
print ARCHIVO2 "$clave";
print ARCHIVO2 "$nombre";
# agregar return al campo editado
print ARCHIVO2 "$edad \n";
};
# cerrando ambos archivos
close(ARCHIVO1);
close(ARCHIVO2);
# eliminando archivo original
unlink "DATOS.DAT";
rename("TEMP.DAT","DATOS.DAT");
print "EDADES AUMENTADAS";
};

corrida:

image267.jpg

corrida prog22

image268.jpg

como se observa la solucion es muy sencilla solo se ocupa el registro original y los dos archivos el original y el temporal, se va leyendo registro a registro de archivo original al registro en memoria correspondiente, se realiza la operacion u proceso deseado con el registro y se graba el registro modificado en el archivo temporal, al final se elimina archivo original y se renombra el archivo temporal.

TAREAS PROGRAMACION PERL :

CONSTRUIR PROGRAMAS QUE REALIZEN ALGUNA OPERACION EN LOS ARCHIVOS PERL CONSTRUIDOS

Politica de Privacidad