Opened by Gast at 2008-02-17 10:14
Was soll das denn???
Das gleich macht:
Das ist auch weniger Anfällig denn der Zeilentrenner unter Unix ist "\n" unter Windows "\r\n" Perl beachtet das per Default. Internetseiten müssen aber nicht immer mit "\r\n" bzw "\n" formatiert sein.
Code: (dl
)
1
2
3
4
5
6
7
open(lookME, ">", "temp1.txt") || die print "Datei konnte nicht erstellt werden!\n";
print lookME $result->content();
close(lookME);
open(IP,"<","temp1.txt") || die print "Datei konnte nicht geoeffnet werden!\n";
@IN = <IP>;
close(IP);
unlink "temp1.txt" || die print "Datei konnte nicht geloescht werden!\n";
Das gleich macht:
Code (perl): (dl
)
@in=split(/[\r\n]+/)
Das ist auch weniger Anfällig denn der Zeilentrenner unter Unix ist "\n" unter Windows "\r\n" Perl beachtet das per Default. Internetseiten müssen aber nicht immer mit "\r\n" bzw "\n" formatiert sein.