Formate

fmtaddresses.pl

#!/usr/local/bin/perl -w $addressbook = "addressbook"; open(BOOK, "<$addressbook") || die "Cannot open $addressbook\n"; while (<BOOK>) { chomp; ($name, $address) = split /:/; write; } close(BOOK); format STDOUT_TOP = Name | Adresse -----------------------+------------------------ . format STDOUT = @<<<<<<<<<<<<<<<<<<<<< | @<<<<<<<<<<<<<<<<<<<<<< $name, $address .

Mit den Formaten können noch eleganter als mit printf Tabellen und Listings generiert werden. Sehr elegant ist dabei die Unterstützung der Seitenköpfe (wobei sich einstellen läßt, wieviel Zeilen auf eine Seite gehen).

Die Formate bestehen aus beliebigem Text, der abgesehen von den Platzhaltern, die mit @ beginnen, genauso übernommen wird.

	Mit den Formaten können noch eleganter als mit `printf` Tabellen und Listings generiert werden. Sehr elegant ist dabei die Unterstützung der Seitenköpfe (wobei sich einstellen läßt, wieviel Zeilen auf eine Seite gehen).
	Die Formate bestehen aus beliebigem Text, der abgesehen von den Platzhaltern, die mit `@` beginnen, genauso übernommen wird.