UNIDAD 5: REGISTROS Y ARCHIVOS SECUENCIALES

TEMA PERL 5: CREACION ARCHIVOS SECUENCIAL

Este proceso no se ocupa, ya que el siguiente TEMA PERL de la unidad LECTURA Y ESCRITURA DE ARCHIVOS ya lo hace, sin embargo se pone como ejemplo y para analizar algunas instrucciones y acciones que se ocupan conocer y realizar en linux perl que procese archivos.

En este proceso se pretende crear un archivo secuencial en disco.

Prog200.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();
print $q->hr();
# creando un submit button
print $q->submit('CREAR');
# cerrando la forma
print $q->endform();
print $q->hr();
#cerrando html
print $q->end_html;
if ($q->param('CREAR'))
{
# creando archivo
open(ARCHIVO, ">>DATOS.DAT") || die "No se pudo abrir el archivo";
# cerrando archivo
close(ARCHIVO);
print "ARCHIVO CREADO" ;
};

Corrida:

image261.jpg

ES IMPORTANTE RECORDAR QUE ANTES DE EJECUTAR SU PRIMER PROGRAMA QUE MANEJE ARCHIVOS EN LINUX PERL, el directorio que los contendra ( en este caso ejemplo cgi-bin) debera tener estar en modo escritura-lectura chmod 777 o chmod 766, hacerlo con putty, si este modo no lo tiene el directorio que contendra el archivo de datos, linux no lo creara y tampoco avisara y cada vez que se quiera agregar o leer un registro a/de dicho archivo adivinen que pasara.

En el programa se ocupa una variable apuntador bautizada con el nombre de ARCHIVO que almacenara la direccion fisica de el archivo en disco, en algun cilindro, track , sector debera quedar el archivo no es verdad.

Como segundo paso se abre el archivo con la instruccion open():

open(ARCHIVO, ”»DATOS.DAT”) || die “No se pudo abrir el archivo”;

1.- open() instruccion perl para abrir archivos

2.- ARCHIVO, la variable apuntador que ya se menciono 4 parrafos arriba de este parrafo.

3.- » modo de apertura, significa crearlo y append o agregar registro al final del ultimo renglon del archivo.

3.1- otros modos “DATOS.DAT” si el archivo no lleva ningun signo antes, se abrira en modo reading o lectura.

4.- DATOS.DAT es el nombre del archivo, y se abrira en el folder o directorio en donde se encuentra el programa perl ( en este caso cgi-bin), si se quiere abrir en otro directorio solo agregar el path correspondiente por ejemplo “\public_html\DATOS.DAT” y recordar la nota en rojo de atras de chmod.

5.- || die .- instruccion de perl que se utiliza para mandar mensajes cuando falla una instruccion.

Cuando se ha finalizado de crear, escribir o leer un archivo se debe cerrar y esto se hace con la instruccion:

close(ARCHIVO);

Politica de Privacidad