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 
 
 
          
