Thread Foreach Schleifen funktionieren nicht mehr (6 answers)
Opened by Grand at 2005-06-02 02:38

Grand
 2005-06-02 02:38
#55277 #55277
User since
2005-06-02
2 Artikel
BenutzerIn
[default_avatar]
Hallo!
Vielleicht kann mir hier ja jemand weiterhelfen. Ich nutze in verschiedenen Scripts seit Jahren die folgende (oder ähnliche) Routine.
Jetzt auf einmal (nach Umzug auf neuen Server) und nun auch auf meinem neuen PC (also überall wohl die neusten Perl Versionen)
funktioniert es einfach nicht mehr.
Es wird nicht mehr die gesamte Datei, also alle Zeilen der jeweiligen Daten-Datei, sondern nur noch die erste Zeile eingelesen. Bisher, wie gesagt jahrelang funktionierte es. Es wurde auch nichts an den Scripten geändert.

######## schnipp #################
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
open(DATA,"$tempfile");
if ($sperre eq 1) {flock(DATA, 1);}
   @lines = <DATA>;
close(DATA);

open(DATA,">$tempfile");
if ($sperre eq 1) {flock(DATA, 2);}
      foreach $line (@lines)
          {
                ($host,$reserve1,$reserve2,$number,$entrytime,$titel,$url,$count) = split(/\|/,$line);
                if ($psw eq 1)
 {
                        $count++;
                        $count--;
                       print DATA ("$count|$titel|$url|$host|$reserve1|$reserve2|$number|$entrytime\n");
            }

              else
            {
            print DATA $line;
             }
      }
    close(DATA);

######## schnapp #################

In großen Hoffnung ;-)
Mario

edit renee: ne Runde [code]-Tags spendiert\n\n

<!--EDIT|renee|1117690178-->

View full thread Foreach Schleifen funktionieren nicht mehr