Tecnología

Inicio

Cómo crear informes con Perl

Utilizar Perl para crear informes sencillos. Incluir una cabecera con un título, número de página y otros datos de interés. Perl seguimiento de cuántas líneas se encuentran en el informe y hace una nueva página cuando sea necesario. Estos informes son útiles para informar de gran cantidad de datos con una salida de texto pequeño. Crear los informes utilizando un informe de formato libre o establecer un formato fijo.

Instrucciones

1 Abra su archivo de aplicación format.dat Perl.

2 Introduzca abierta "(FILE," <format.dat ");
@lines = ;
cerrar (ARCHIVO) ;. "Esto establece el formato para el informe, de manera que cada entrada es una línea distinta.

3 Crear el cuerpo del Perl anuncia por dar dirección Perl en lo que informar. Usando una lista de la compra como un ejemplo, introduzca
"Para cada uno (@lines) {

chop;
($isle, $item, $price) = (split(/!/));
print("Isle=$isle Item=$item Price=$price\n");

} "

4 Utilice este formato de base de datos si los artículos son todas diferentes. Si hay elementos que faltan, el formato no se da cuenta de los elementos que faltan. Vea el ejemplo:
Isla = 5 Elemento = Precio =
Isla = = 2 Artículo Naranjas Precio = 0,32
Isla = 7 Artículo Patatas fritas = 2.95 = Precio
Isla = 9 = Elemento de las bombillas Precio = 2.50

5 Escribe la lista de otro modo si desea un formato de ancho fijo. Utilizando este código
"Para cada uno (@lines) {

chop;

($ Isle, $ item, $ precio) = (split (/ /)!);

$ Isle = "" si está definido ($ isla!); Estas líneas asignan nula

$ Item = "" si está definido (punto $!); cuerdas si no hay información es

$ Precio = "" si está definido ($ precio!); presente en el registro.

print ( "Isla = $ = $ isle artículo máquina Precio = $ precio \ n");

} "

6 Salida del Perl creado informa similar al siguiente ejemplo:
Isla = 5 Elemento = Precio =
Isla = = 2 Artículo Naranjas Precio = 0,32
Isla = 7 Artículo Patatas fritas = 2.95 = Precio
Isla = 9 = Elemento de las bombillas Precio = 2.50