Opened by wusel81 at 2005-12-20 19:44
User since
2003-08-04
5246 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
5246 Artikel
ModeratorIn
was auch sein kann ist, dass der webserver fuer die Ausfuehrung nicht ins scriptverzeichnis wechselt (kann man mit 
Cwd recht einfach herausfinden), und von daher das oeffnen der dateien ueber einen relativen dateinamen fehlschlaegt.
deshalb verwende ich da immer das StandardmodulFindBin, das die Variable $FindBin::Bin bereitstellt, die den Pfad zum ausgefuehrten Script beinhaltet. Das ist nicht nur bei CGI-Scripten sinnvoll, sondern auch bei anderen, damit man die z.B. auch ueber den PATH aufrufen kann und sie noch korrekt funktionieren.
oder so aehnlich
Cwd recht einfach herausfinden), und von daher das oeffnen der dateien ueber einen relativen dateinamen fehlschlaegt.deshalb verwende ich da immer das Standardmodul
FindBin, das die Variable $FindBin::Bin bereitstellt, die den Pfad zum ausgefuehrten Script beinhaltet. Das ist nicht nur bei CGI-Scripten sinnvoll, sondern auch bei anderen, damit man die z.B. auch ueber den PATH aufrufen kann und sie noch korrekt funktionieren.Code: (dl
)
1
2
3
4
5
6
7
use FindBin;
my $idDatei = "$FindBin::Bin/../$id.txt";
open(my $TEXTDATEI, "<", $idDate) or die "Error: couldn't read '$idDatei': $!\n";
while (my $line (<$TEXTDATEI>)) {
# ...
} # while
close $TEXTDATEI;
oder so aehnlich
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
http://www.fabiani.net/