1
Abra el archivo format.dat aplicación Perl
2
Introduce abierto "( FILE , " @ lineas = , . Cerca (FILE ) ; ". Establece el formato para el informe de modo que cada entrada es una línea distinta.
3
Crear el cuerpo de los informes de Perl Perl dando orientación sobre lo que informar. Usando una lista de la compra como un ejemplo , introduzca " para cada uno ( @ lineas ) { chop , ( $ isla, $ item , $ precio) = (split ( //) ! ) print (" Isle = $ isle artículo = $ item = Precio $ precio \\ n " ) ;} "
4
Utilice este formato si los elementos de base de datos están completos Si hay elementos que faltan, el formato no será responsable de los objetos perdidos Véase el ejemplo : Isle = 5 artículo . . = Precio = Isle = 2 del artículo = Naranjas Price = 0.32Isle = 7 = artículo patatas Fritas Precio = 2.95Isle = 9 del artículo = bombillas Precio = 2,50
5
Escribir la lista de otra manera, si usted quiere . un formato de ancho fijo Utilice el código " para cada uno ( @ lineas ) {
tajada ;
($ isla, $ item , $ precio) = ( split ( //) !) ;
$ isle = "" si definido ($ isla ) ; ! Estas líneas asignan nula
$ item = "" si definido ( $ item ) ; ! cadenas si no es info
$ precio = " " si definido ( precio en dólares ) ; ! presente en el registro
impresión. ( " Isle = $ isle artículo = $ item = Precio $ precio \\ n");
} "
6
salida los informes creados Perl similares al siguiente ejemplo : Isle = 5 Elemento = Precio = Isle = 2 artículos = Naranjas Precio = 0.32Isle = 7 item = Potato Chips Precio = 2.95Isle = 9 del artículo = Bombillas Precio = 2,50