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:

corrida prog22

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