Brug Perl til at skabe enkle rapporter. Medtag en header med en titel , sidetal og andre vigtige oplysninger . Perl sporer, hvor mange linjer er i rapporten og gør en ny side, når det er nødvendigt. Disse rapporter er nyttige for rapportering masser af data med en lille tekst output. Opret rapporter ved hjælp af en rapport i frit format eller indstille en fast format . Instruktioner
1
Åbn dit Perl program FORMAT.DAT fil
2
Enter åben " (Filer, " @ linier = ; . Tætte (FILE ), . " Dette sæt formatet for rapporten , således at hver post er sin egen linje .
3
Opret kroppen af Perl rapporter ved at give Perl retning på hvad der skal rapporteres . ved hjælp af en indkøbsliste som et eksempel , indtast " for hver (@ linier ) { chop , ( $ ø , $ emne , $ pris) = (split (//) ! ) print ( " Isle = $ isle Item = $ vare Pris = $ pris \\ n " );} "
4
Brug dette format , hvis databasen poster er alle fuldstændig Hvis der er elementer mangler , vil formatet ikke redegøre for de manglende elementer Se eksemplet : Isle = 5 Item. . = Pris = Isle = 2 Item = Appelsiner Pris = 0.32Isle = 7 Item = Potato Chips Pris = 2.95Isle = 9 Item = Light Løg Pris = 2.50
5
Skriv listen en anden måde , hvis du vil . en fast bredde format Brug koden " for hver ( @ linier ) {
chop ,
($ ø , $ emne , $ pris) = ( split (//) !) ;
$ isle = "" hvis defineret ( $ Isle ) ! Disse linjer tildeler null
$ post = "" hvis defineret ( $ emne ), ! strenge hvis ingen info er < br >
$ pris = "" hvis defineret ( $ pris ) ! stede i posten
print. ( " Isle = $ isle Item = $ vare Pris = $ pris \\ n "); < br >
} "
6
Output de oprettede Perl rapporter der ligner følgende eksempel : Isle = 5 Vare = Pris = Isle = 2 Vare = Appelsiner Pris = 0.32Isle = 7 styk = Potato Chips Pris = 2.95Isle = 9 Item = Light Løg Pris = 2.50