Opened by cbxk1xg at 2003-10-31 16:51
User since
2003-10-20
496 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-10-20
496 Artikel
BenutzerIn
Hallo,
ich habe das Problem schon in einem anderem Thread beschrieben, komme aber nicht weiter. Ich habe eine Textdatei die folgendermaßen formatiert ist:
Und die dusselige Sub liest mir immer nur den letzten Eintrag aus dieser Datei aus. Ich will aber auch gerne die anderen Zeilen abgleichen! Ich verstehe das Problem nicht, da ich eigentlich nichts besonderes mache, was ich nicht sonst auch tun würde.
\n\n
<!--EDIT|cbxk1xg|1067611942-->
ich habe das Problem schon in einem anderem Thread beschrieben, komme aber nicht weiter. Ich habe eine Textdatei die folgendermaßen formatiert ist:
Code: (dl
)
1
2
3
[EMAIL=email@mail.de]email@mail.de[/EMAIL]]email@mail.de|123456789
[EMAIL=bla@laber.de]bla@laber.de[/EMAIL]]bla@laber.de3216548958
[EMAIL=sag@was.de]sag@was.de[/EMAIL]]sag@was.de97655786
Und die dusselige Sub liest mir immer nur den letzten Eintrag aus dieser Datei aus. Ich will aber auch gerne die anderen Zeilen abgleichen! Ich verstehe das Problem nicht, da ich eigentlich nichts besonderes mache, was ich nicht sonst auch tun würde.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
sub CheckTempDB
{
# Templist öffnen und einlesen
open (TEMP, "<$templist") or &error("Unable to open the templist file for reading");
if ($flock eq "y") {flock TEMP, 2;}
my @templist = <TEMP>;
close(TEMP);
# Templist sortieren und auf Strings rausfiltern
foreach $tempstring(@templist)
{
s/\r?\n//g; #Entfehrnt den verwi... Zeilenumbruch!
($LISTOptMail, $LISTOptID) = split (/\|/,$tempstring);
if (($LISTOptMail eq $LINKOptMail) && ($LISTOptID eq $LINKOptID)) {$OptIDStatus = 'ok';}
else {$OptIDStatus = 'error';}
}
}
<!--EDIT|cbxk1xg|1067611942-->