Use of uninitialized value ... - Aber wo?

[Opa Nolle]

Hallo,

bei dem unten folgenden Script bekomme ich eine Fehlermeldung mit der ich nichts anfangen kann. Ich sehe einfach keinen Fehler. :mad:
Vielleicht sieht ihn jemand anderes?

Opa Nolle

Fehlermeldung:
Use of uninitialized value in concatenation <.> or string at MailBearb.pl line 33, <DATEI> line 16.



#!D:\Programme\Perl\bin\perl

use warnings;
use strict;

my $datei = "../texte/mail.txt";
open(DATEI, "< $datei") or die "\aKonnte $datei nicht oeffnen $!";

my $zeile;
my $subject;
my $date;
my $rep_add;
while ($zeile = <DATEI>)
{
if ($zeile =~ m/^\s*$/)
{ #line 16
last;
}
if ($zeile =~ m/^Subject: (.*)/i)
{
$subject = $1;
}
if ($zeile =~ m/^Date: (.*)/i)
{
$date = $1;
}
if ($zeile =~ m/^(In-)?Replay-To: (.*)/i)
{
$rep_add = $1;
}
}
print "\n$subject\n$date";
print "\n$rep_add\n"; #line 33
close(DATEI);

__END__


########################

Da hab´ich nun bald 2 Stunden nach einem Fehler gesucht, und jetzt, nachdem ich hier gepostet habe, fällt er mir auf.
Es muß '...Reply-To' heißen. Das mit dem '(In-)? istwieder was anderes.

Opa Nolle

[DaTa]

Wenn es keine reply-to-zeile gibt, dann ist das $rep_add nicht initialisiert.



my $rep_add = ""


statt



my $rep_add


sollte abhilfe schaffen.