#! /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($!);
my @entries = <R_FILE>;
close R_FILE;

foreach(@entries){
 if($_ eq $string){
   $_ = "";
 }
}

open(W_TXT,">$file") or die($!);
print W_TXT "$_ for(@entries)";
close W_TXT;

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