1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
use strict;
...
sub CheckTempDB
{
# Templist öffnen und einlesen
open(TL, "< $templist") or &error("Unable to open the templist file for reading");
if($flock eq "y") {flock TL, 2;}
my @templist = <TL>;
close(TL);
# Templist sortieren und auf Strings rausfiltern
foreach (@templist)
{
s/\r?\n//g; #Entfehrnt den verwi... Zeilenumbruch!
my ($LISTOptMail, $LISTOptID) = split (/\|/, $_);
{
if(($LISTOptMail eq $LINKOptMail) && ($LISTOptID eq $LINKOptID)) {$OptIDStatus = "ok";}
else {$OptIDStatus = 'error';}
}
}
}
so ist besser...
kommt wohl davon, wenn man nicht use strict benutzt\n\n
<!--EDIT|esskar|1067603348-->