Bruk Perl å lage enkle rapporter . Inneholde en overskrift med en tittel , sidetall og annen viktig informasjon. Perl sporer hvor mange linjer er i rapporten, og gjør en ny side når det trengs . Disse rapportene er nyttige for rapportering masse data med en liten tekst utgang . Lage rapporter ved hjelp av en rapport med fritt format eller sette en fast format . Instruksjoner
en

Åpne Perl program FORMAT.DAT fil
2

Gå inn på "( Fil" @ linjer = ; . Nære ( FIL ) ; . " Dette stiller formatet for rapporten slik at hver oppføring er en egen linje.
3

Lag kroppen av Perl rapporter ved å gi Perl retning på hva du skal rapportere . ved hjelp av en handleliste som et eksempel , skriv " for hver ( @ linjer ) { hogge ; ( $ øya , $ element , $ pris) = ( split ( //) ! ), print ( " Isle = $ øya element = $ element Pris = $ pris \\ n " ) ; } "
4

Bruk dette formatet dersom databasen elementer er alle komplett Hvis det er elementer mangler , vil formatet ikke gjøre rede for de manglende elementene Se eksempel : Isle = 5 vare . . = Pris = Isle = 2 Element = Appelsiner Pris = 0.32Isle = 7 vare = Potato Chips Pris = 2.95Isle = 9 vare = Lyspærer Pris = 2.50
5

Skriv en liste på en annen måte hvis du vil . en fast bredde format Bruk koden " for hver ( @ linjer) {

chop ,

( $ øya , $ element , $ pris) = ( split ( //) ! ) ;

$ øya = "" hvis det er definert ( $ øya ); ! Disse linjene tildele null

$ element = "" hvis det er definert ( $ element ) ; ! strenger hvis ingen info er

$ pris = " " hvis det er definert ( $ pris); ! stede i posten

print . ( " Isle = $ øya element = $ element Pris = $ pris \\ n" );

} "
6

Output de opprettede Perl rapporter som ligner på følgende eksempel : Isle = 5 Element = Pris = Isle = 2 Element = Appelsiner Pris = 0.32Isle = 7 item = potetgull Pris = 2.95Isle = 9 vare = Lyspærer Pris = 2.50