<perl>
### Datenbank als csv-Datei ausgeben     ###
### 16.10.2005 by Christian Ries         ###
### Vorsicht bei 'textarea'-Feldern: hier werden Zeilenumbrüche als <br> übergeben und Browser wie Firefox zeigen diese Umbrüche auch im Sourcecode an. Um das Resultat als CSV-Datei abspeichern zu können ruft man am besten die Seite mit MSExplorer auf und sieht sich den Quellcode im 'Notepad' an und speichert den Inhalt mit der Dateiendung .csv, anschliessend lässt sich die Datei mit Excel öffnen und bearbeiten ###

$db="main"; ### Namen der gewünschten Datenbank (hier im selben bp-Verzeichnis ###
$tz=";";    ### Gewünschtes Trennzeichen (hier das für csv übliche ; )         ###
$sf="Ort";  ### Feld nach dem sortiert werden soll, hier z.B. das Feld Ort     ###
$dbf="$db.fields";

get "Id==*",$dbf;
while (get_next $dbf) {push(@flds,$Field);}  ### Feldnamen werden in Array zusammengestellt, damit wir beide Male auf sie zurückgreifen können ###
for(@flds) {out $_.$tz;}  ### Ausgabe der Feldnamen ###
out "\n";  ### Ausgabe des Zeilenumbruchs am Ende des Datensatzes ###

get "sort=$sf", "$db";
while (get_next("$db"))
   {
   for(@flds) { out $$_.$tz; }  ### Ausgabe der Feldinhalte ###
   out "\n";  ### Ausgabe des Zeilenumbruchs am Ende des Datensatzes ###
   }
</perl>