Thread OptIn Funktion für einen Newsletter: Strings finden und vergleichen (7 answers)
Opened by cbxk1xg at 2003-10-31 14:07

esskar
 2003-10-31 14:13
#8628 #8628
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
Code: (dl )
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-->

View full thread OptIn Funktion für einen Newsletter: Strings finden und vergleichen