#!/usr/bin/perl #!perl.exe -t ############################################## ### datenbank suche ### Version 1.0 ### Copyright 2000 > boomtec < mario-luepke-online ### All Rights Reserved ############################################## ##################################################################### ###################### EINGABE AUSLESEN ################### ##################################################################### @kriterium = undef; $eingabe = ; @eingabe = split( /&/ , $eingabe); foreach $zeile (@eingabe) { ($feld, $inhalt) = split( /=/ , $zeile); $daten = $inhalt; $inhalt = &aufbereiter ($daten); $eingabe{$feld} = $inhalt; } print "Content-type: text/html\n\n"; print''; ##################################################################### ###################### Datenbanken AUSLESEN ################# ##################################################################### ### Datenbank REGION einlesen ### open (REGION, "region.db"); @region = ; close (REGION); foreach $zeile (@region) { $zeile =~ s/\n//; $zeile =~ s/\r//; } ### Datenbank LAND einlesen ### open (LAND, "land.db"); @land = ; close (LAND); foreach $zeile (@land) { $zeile =~ s/\n//; $zeile =~ s/\r//; } ### Datenbank ZUORDNUNG einlesen ### $anzahl =0; open (ZUORDNUNG, "zuordnung.db"); while ($zeile = ) { my (@zeile) = split ( /<>/ , $zeile); push (@{$zuordnung}, \@zeile); $anzahl++; } close (ZUORDNUNG); ##################################################################### ###################### Tabellen AUSLESEN ##################### ##################################################################### ### komplettes Verzeichnis einlesen ### opendir (VERZ, "."); @verzeichnis = readdir VERZ; closedir (VERZ); @verzeichnis = sort @verzeichnis; ### Daten-Tabellen selktieren ### foreach $zeile (@verzeichnis) { if ($zeile =~ m/\.tab/gi ) { if (length $zeile > 3) { push @tabelle, $zeile; } } } ### Tabellen auslesen ### $ziffer = 1; foreach $zeile (@tabelle) { $ziffer = &zweistellig ($ziffer); ($dateiname, $endung) = split( /\./ , $zeile); ($name, $bezeichnung) = split( /_/ , $dateiname); ### Tabellen öffnen ### open (TABELLE, "$zeile"); @{$ziffer} = ; close (TABELLE); # print "Name : -$name- und Bezeichnung : -$bezeichnung-
"; $ziffer++; } $tabellenzahl = $ziffer; foreach $zeile (@zuordnung) { # print "-$zeile-
"; } #print $tabellenzahl; ################################################################################ ######################### Ausgabefelder vorbereiten ############################# ################################################################################ ### Ausgabe REGION vorbereiten ### $region = undef; foreach $zeile (@region) { $zeile =~ s/\n//; $region = $region . "