Verwenden Perl , einfache Berichte erstellen. Fügen Sie ein Kopfballtor mit einem Titel, Seitenzahl und andere wichtige Informationen. Perl verfolgt , wie viele Zeilen sind in den Bericht und macht eine neue Seite , wenn nötig. Diese Berichte sind nützlich für die Berichterstattung viele Daten mit einem kleinen Text ausgegeben. Erstellen Sie die Berichte über eine Frei-Form- Bericht oder einen festen Format . Anleitung
1

Öffnen Sie Ihre Perl -Anwendung format.dat Datei
2

Geben open " (FILE , " @ lines = ; . Close ( FILE) ; . "Hierdurch wird das Format für den Bericht so , dass jeder Eintrag in einer eigenen Zeile ist .
3

erstellen Sie den Körper der Perl Berichte indem Perl Richtung auf, was zu berichten. mit einem Lebensmittelgeschäft Liste als Beispiel , geben Sie " für jedes ( @ lines ) { chop ; ($ insel, $ item , $ Preis ) = ( split ( //) ! ); print (" Isle = $ Isle Item = $ item = $ Preis Preis \\ n " );} "
4

Verwenden Sie dieses Format , wenn die Datenbank alle Artikel vollständig sind wenn Teile fehlen , wird das Format nicht für die fehlenden Elemente ausmachen Siehe das Beispiel : Isle = 5 Artikel . . = Preis = Isle = 2 Oranges Item = Preis = 0.32Isle = 7 Item = Kartoffelchips Preis = 2.95Isle = 9 Item = Light Bulbs Preis = 2.50
5

schreiben die Liste einen anderen Weg , wenn Sie wollen, . ein fester Breite Format Verwenden Sie den Code " für jede ( @ lines ) {

chop ;

($ insel, $ item , $ Preis ) = ( split ( //) ! ) ;

$ isle = "" if defined ( $ Insel ); ! Diese Linien weisen null

$ item = "" if defined ( $ item ); ! Saiten , wenn keine info ist

$ price = " " if defined ( $ preis ); ! in der Aufzeichnung

Druck . ( " Isle = $ Isle Item = $ item = $ Preis Preis \\ n");

} "
6

Output die erstellten Berichte Perl ähnlich dem folgenden Beispiel: Isle = 5 Item = Preis = Isle = 2 Oranges Item = Preis = 0.32Isle = 7 Item = Kartoffelchips Preis = 2.95Isle = 9 Item = Light Bulbs Preis = 2.50