# en la variable array @html
@html = &readFile ($copyright file);
# Imprime cada linea almacenada en el array @html (es decir, # el
contenido del archivo de mensaje copyright)
foreach $line (@html){ print $line; #
Sale del filtro
exit 0;
Funcion: Lee un archivo si un
mensaje de error y sale
este existe o sino imprime del
script
# Obtiene el nombre del nombre del archivo pasado y lo guarda # en
la variable $file
my $file = shift;
# Variable local buffer my
@buffer;
# Si existe el archivo, lo abre y lee todas # las
lineas de la variable array @buffer if (-e $file) {
open (FP,$file) II die "Can not open $file."; while
(<FP>){
push(@buffer,$
_
);
close (FP)
} else (
push(@buffer,"$file is missing.");
# Devuelve el contenido del buffer.
return (@buffer);
El script anterior lee el archivo de texto solicitado e imprime el contenido dentro
de unas cuantas etiquetas HTML que permiten que se muestre el contenido tal y como es.
Esto se realiza utilizando la etiqueta HTML
<PRE>.
Una vez que se ha impreso el
contenido, el contenido del archivo del mensaje copyright se inserta al final de la salida.
Esto permite que se imprima un mensaje copyright con cada archivo de texto solicitado.
La figura 5.1 muestra un ejemplo de salida en la que se muestra un archivo de texto en
el navegador Web.
Subrutina:
readFile
177
Zona Clientes
Entrar
