Opened by Tom at 2005-10-03 21:04
User since
2003-09-20
470 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-09-20
470 Artikel
BenutzerIn
[quote=kristian,05.10.2005, 20:41]Der Code den ich gepostet habe ist der Workarround für die "kaputten Hoster", die mir bislang untergekommen sind.[/quote]
Wie muss ich deinen Code verwenden?
Habe hier mal ein Testscript das aber nicht funktioniert.
Es weiss doch dass es in einem Verzeichniss ist, und wenn ich dann "use lib './module';" schreibe weiss es doch dass es im aktuellen Verzeichniss unter dem Verzeichniss Module die Module findet oder nicht!?
Tom
Wie muss ich deinen Code verwenden?
Habe hier mal ein Testscript das aber nicht funktioniert.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl -w
use CGI::Carp "fatalsToBrowser";
use CGI qw(:all);
use warnings;
use lib './module';
use File::Spec;
use FindBin;
BEGIN{
unless((defined $FindBin::Bin)&&(length($FindBin::Bin) > 3)&&(-d $FindBin::Bin)){
use File::Basename;
my($script,$bin) = fileparse($0);
unshift(@INC, File::Spec->catdir($bin,'mylibs'));
}else{
unshift(@INC, File::Spec->catdir($FindBin::Bin,'mylibs'));
}
}
print "Content-Type: text/html\n\n";
print "Das Programmverzeichnis ist: $FindBin::Bin";
Quote> Gibt es da nicht die Möglichkeit das Modul in ein Verzeichniss zu packen und es von dort aufzurufen?
Hehe, woher weiss dein Script denn, wo dieser Ordner ist, solange es nicht weiss wo es selbst ist?
Es weiss doch dass es in einem Verzeichniss ist, und wenn ich dann "use lib './module';" schreibe weiss es doch dass es im aktuellen Verzeichniss unter dem Verzeichniss Module die Module findet oder nicht!?
Tom
Computerprobleme??? -> http://www.weber-computerhilfe.de
Fordere keine Anerkennung!
Zeige was und man wird Dich kennen
Fordere keine Anerkennung!
Zeige was und man wird Dich kennen