#! /usr/bin/perl

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

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

my $string = $params{Name01}.'|'.$params{Firstname01}.'|'.$params{Street}.'|'.$params{Nr}.'|'.$params{Code}.'|'.$params{City}.'|'.$params{Tel}.'|'.$params{Email}."\n";

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

open(R_FILE,"<$file") or die "Konnte $file nicht lesen: $!";
my @entries = <R_FILE>;
close R_FILE;

@entries = grep($_ ne $string,@entries);

open(W_TXT,">$file") or die "Konnte $file nicht schreiben: $!";
print W_TXT @entries;
close W_TXT;

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