2;;Prof. Dr.-Ing.;;;;Name;;Fachhochschule Kiel;;Fachbereich Bauwesen;;;;;;Lorenz-von-Stein-Ring Haus-nr;;24340 Eckernf�de;;;;;;;;;;;;;;;;;;;;;;;;
3;;Prof. Dr.-Ing.;;Vorname;;Nachname;;ETH Zrich;;Institut fr Geotechnik;;;;;;H�ggerberg;;CH-8093 Zrich;;Tel-Nr.;;;;;;Tel-Nr.;;;;;;;;;;;;;;;;

Die Datei konnte nicht geöffnet werden

read_input();

$field[0] = $query{'id'};
$field[1] = $query{'titel'};
$field[2] = $query{'vorname'};
$field[3] = $query{'name'};
$field[4] = $query{'firma'};
$field[5] = $query{'abteilung'};
$field[6] = $query{'kategorie'};
$field[7] = $query{'vermerke'};
$field[8] = $query{'dienststrasse'};
$field[9] = $query{'dienstort'};
$field[10] = $query{'dienst_tel_1'};
$field[11] = $query{'dienst_tel_2'};
$field[12] = $query{'dienst_mobiltel'};
$field[13] = $query{'dienst_fax'};
$field[14] = $query{'dienst_email'};
$field[15] = $query{'webseite'};
$field[16] = $query{'privat_strasse'};
$field[17] = $query{'privat_ort'};
$field[18] = $query{'privat_tel_1'};
$field[19] = $query{'privat_mobiltel'};
$field[20] = $query{'privat_fax'};
$field[21] = $query{'privat_email'};

#********************************************************************
# Tabellenkopf für die HTML-Ausgabe aller/der gefundenen Einträge
#********************************************************************

$table_head ="<TR BGCOLOR=\"silver\">\n"
        . "<TD NOWRAP>NR</TD>\n"
        . "<TD NOWRAP>TITEL</TD>\n"
        . "<TD NOWRAP>VORNAME</TD>\n"
        . "<TD NOWRAP>NAME</TD>\n"
        . "<TD NOWRAP>FIRMA/INSTITUT</TD>"
        . "<TD NOWRAP>ABTEILUNG</TD>\n"
        . "<TD NOWRAP>KATEGORIE</TD>\n"
        . "<TD NOWRAP>VERMERKE</TD>\n"
        . "<TD NOWRAP>STRASSE</TD>\n"
        . "<TD NOWRAP>ORT</TD>\n"
        . "<TD NOWRAP>TELEFON 1</TD>\n"
        . "<TD NOWRAP>TELEFON 2</TD>\n"
        . "<TD NOWRAP>MOBILTELEFON</TD>\n"
        . "<TD NOWRAP>FAX</TD>\n"
        . "<TD NOWRAP>EMAIL</TD>\n"
        . "<TD NOWRAP>WEBSEITE</TD>\n"
        . "<TD NOWRAP>STRASSE (privat)</TD>\n"
        . "<TD NOWRAP>ORT (privat)</TD>\n"
        . "<TD NOWRAP>TELEFON (privat)</TD>\n"
        . "<TD NOWRAP>MOBILTELEFON (privat)</TD>\n"
        . "<TD NOWRAP>FAX (privat)</TD>\n"
        . "<TD NOWRAP>EMAIL (privat)</TD>\n"
        . "</TR>\n";


sub del_entry_db # ( id )
{
        my $del_id = $_[0];

        open (DATEI, "<adress.db") ||
                die "Die Datei konnte nicht geöffnet werden!\n";
        my @datei = <DATEI>;
        close DATEI;

        open (DATEI, ">adress.db") ||
                die "Die Datei konnte nicht geöffnet werden!\n";

        foreach (@datei){
                chop;
                # extract id
                @entry = split(/;;/, $_);
                if( $entry[0] eq $del_id ) {
                }
                else {
                        print DATEI "$_\n";
                }
                #push @new, [$str];
        }

        close DATEI;
}

sub del_entry_db # ( id )
 {
         my $del_id = $_[0];
         my $db_file='adress.db'; # da vertippt man sich nur einmal :)

         warn "Zu löschende ID: $del_id\n"; # < Testausgaben Kann auskommentiert werden.

         open (DATEI, '<', $db_file) ||
                 die "Die Datei \"$db_file\" konnte nicht gelesen werden! Fehler:($!)\n";
         my @datei = <DATEI>;
         close DATEI;
         chomp($datei);

         open (DATEI, '>', $db_file) ||
                 die "Die Datei \"$db_file\" konnte nicht geschrieben werden werden! Fehler:($!)\n";
         foreach my $line (@datei){
                 # extract id
                 my @entry = split(/;;/, $line);
                 if($entry[0] ne $del_id){
                         print DATEI "$line\n";
                 }
                else{ warn "ID gefunden: \"$line\"\n"; } # < Testausgabe kann auskommentiert werden.
         }
         close DATEI;
 }

         open DATEI, '<', $db_file or
                 die "Die Datei '$db_file' konnte nicht gelesen werden! Fehler:($!)\n";
# oder
         open DATEI, '<', $db_file or
                 die qq#Die Datei "$db_file" konnte nicht gelesen werden! Fehler:($!)\n#;