#!/usr/bin/perl # Dieses Beispiel liest eine kommabegrenzte Datei mit Adressen ein # und schreibt sie HTML-formatiert in eine neue Datei @Adressen = (""); # Speicher für alle Datensaetze @Datensatz = (""); # Speicher für alle Felder des aktuellen Datensatzes $Felder = ""; # Speicher für die Namen der Felder (stehen in der ersten Dateizeile) $i = 0; open(ADRESSEN, ") # Kommabegrenzte Datei einlesen { if($i == 0) # erste Zeile der Datei einlesen { $Felder = $_; # Feldnamen ermitteln } else { $Adressen[$i] = $_; # ab zweiter Zeile in @Adressen einlesen } $i++; # Datensatzzähler erhöhen } close(ADRESSEN); $Anzahl = $i - 1; # Anzahl Datensätze merken chop($Felder); @Datenfelder = split(/,/,$Felder); # Erste Zeile mit Feldnamen aufdröseln open(ADRESSENDAT, ">adressen.htm"); # HTML-Datei zum Schreiben öffnen print ADRESSENDAT "\n\n"; # HTML-Datei schreiben print ADRESSENDAT "Adressen\n"; print ADRESSENDAT "\n\n"; for(@Adressen) # solange Daten in der Adressenliste sind { @Datensatz = split(/,/,$_); # Aktuellen Datensatz aufdröseln $i = 0; for(@Datensatz) { print ADRESSENDAT "$Datenfelder[$i]: $Datensatz[$i]
\n"; # Aktuellen Datensatz schreiben $i++; } } print ADRESSENDAT "\n\n"; close(ADRESSENDAT); print $Anzahl," Datensaetze geschrieben\n"; # Nur zur Kontrolle: auf Standardausgabe