#!perl

use strict;
use warnings;

my $zufallnr = 12345;
my $derVorname = 'Kira';
my $derNachname = 'Eberle';
my $mailto = 'spam@rundablage.de';

# -- Trennzeichen Tabulator ausschließen
$zufallnr =~ s/\t+/ /g;
$derVorname =~ s/\t+/ /g;
$derNachname =~ s/\t+/ /g;
$mailto =~ s/\t+/ /g;

# -- Nummer prüfen: ist gültig, wenn es zwischen 1 und 90 Ziffern sind.
die("Ungültige Nummer: [$zufallnr]") if $zufallnr !~ m/^\d{1,90}$/;

open(APPENDFILE,">>$zufallnr.txt") or die($!);
print APPENDFILE "$zufallnr\t$derVorname\t$derNachname\t$mailto\n";
close(APPENDFILE);

#!perl

use strict;
use warnings;

my $testNr = 12345;
my $dateiName = "$testNr.txt";
die("Datei [$dateiName] existiert nicht") unless -e $dateiName;

open(READFILE, '<', $dateiName) or die('Kann Datei nicht öffnen: ' . $!);
my @alleZeilen = <READFILE>;
my $ersteZeile = $alleZeilen[0];
chomp($ersteZeile); # \n entfernen
my @empfaengerDaten = split(/\t/,$ersteZeile);
my $derName = $empfaengerDaten[1];

open(APPENDFILE,">>newsletter.txt") or die('Kann Datei nicht öffnen: ' . $!);
print APPENDFILE "$ersteZeile\n";
close (APPENDFILE);
close(READFILE);

die("Ungültiger Dateiname: [$dateiName]") unless $dateiName =~ m/^\d{1,90}\.txt$/;
unlink($dateiName); # XXX: Fehler Abfangen?

print "Hallo $derName, vielen Dank für die Newsletter-Bestellung!";