#! /usr/bin/perl

use strict;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $file = './data.txt';

my $cgi = CGI->new();
my %params = $cgi->Vars();
print $cgi->header(-type => 'text/html');

my $string = join( '|', 
    map { defined($_) ? $_ : '' }
    @params{ qw(Name01 Firstname01 Street Nr Code City Tel Email) }
     ) . "\n";

open(R_FILE, "<$file") or die "Konnte $file nicht lesen: $!";
open(W_TXT, ">$file") or die "Konnte $file nicht schreiben: $!";
while (<R_FILE>) {
  print W_TXT $_ if $_ ne $string;
}
close R_FILE;
close W_TXT or die "Fehler beim Schliessen von $file: Festplatte voll? $!";

print "Der Eintrag ".chomp($string)." wurde gelöscht";