Den "Internal Server Error" kann ich schon verstehen, denn der Testcode oben ist schliesslich kein CGI-Skript, vor allem liefert er keinen Content-Type-Header. Es muss also einen 500er geben, wenn man das unveraendert als CGI ausfuehrt.

[quote=Dubu,06.10.2005, 23:17]Den "Internal Server Error" kann ich schon verstehen, denn der Testcode oben ist schliesslich kein CGI-Skript, vor allem liefert er keinen Content-Type-Header. Es muss also einen 500er geben, wenn man das unveraendert als CGI ausfuehrt.[/quote]
;)

@kristian

Kann im moment nicht testen ob es damit bei Hosteurope klappt, aber sobald ichs testen kann melde ich mich.

Tom

[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.

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

ja, das script weiss, dass es in einem verzeichnis ist. wenn du jedoch ein Verzeichnis ./module angibst, dann geht das jedoch nicht unbedingt vom verzeichnis weg, in dem das script liegt, sondern vom aktuellen verzeichnis aus (als beispiel: wie oft rufst du perl aus /usr/bin/ auf, und wie oft befindest du dich da in anderen verzeichnissen?)
Das Problem ist, dass gerade bei cgi-scripten nicht gesichert ist, dass der server zuerst ein cwd in dieses verzeichnis vornimmt, und deshalb gibt es auch FindBin.

Andere Moeglichkeiten:
1. $0 untersuchen, ob da ein pfad drinnensteht (z.B. mit File::Basename muesste es einfach gehen) und dann use lib "$dir/module" oder so laden.
2. Das Modulverzeichnis hardcoden, z.B. use lib qw(/home/bla/myModules); ist allerdings unflexibel

@Tom: was funktioniert an dem Code nicht?? Welche Fehlermeldung gibt es??

Hallo
Ist mein Perl denn so unverständlich?
Erstmal: Ein Perlscript sucht Module in den Verzeichnissen, die in "@INC" gelistet sind.
Wenn ich jetzt eigene Module nutzen will muss das Verzeichnis in dem meine Module liegen in @INC stehen.
Die Frage ist also, wie bekomme ich "mein" Verzeichnis in @INC hinein.
Der normale Weg wäre:

use lib "$lib_dir"; klappt leider nicht, da alle "use-Anweisungen" vorrangig behandelt werden, daher push oder unshift jenachdem ob meine Module vor den ev. auf dem Server installierten gefunden und genutzt werden sollen.

Wenn jetzt bei einem Hoster FindBin kaputt ist und der Hoster das auch nicht reparieren will oder kann muss man tricksen.
Mein Workarround macht nicht anderes, als zu testen, ob FindBin funktioniert und ob es das Verzeichnis $FindBin::Bin auch wirklich gibt.
Für den Fall dass es das Verzeichnis nicht gibt, wird $0 (kompletter Pfad des Scriptes) zerlegt und das Verzeichnis als Arbeitsverzeichnis gesehen. Was anderes macht FindBin übrigens auch nicht, nur halt etwas sicherer und platform-übergreifender als ich hier.
Dem Arbeitsverzeichnis hänge ich dann das Modulverzeichnis an (File::Spec) und schiebe das ganze nach @INC;

In der Hoffnung dass das jetzt verständlich war
Kristian\n\n

<!--EDIT|kristian|1128765028-->

Du solltest das use lib ("pfad"); auch vor dem use FindBin machen... use lib () ist die bessere Variante des unshift. Und wenn Du das vor dem use <module> machst, dann wird auch zuerst in Deinem Verzeichnis gesucht...\n\n

<!--EDIT|renee|1128765741-->

@renee
Knurrrrrr....
perldoc lib =>
The parameters to "use lib" are added to the start of the
perl search path. Saying

use lib LIST;

is almost the same as saying

BEGIN { unshift(@INC, LIST) }

Was sollte denn statt "pfad" mit use lib in @INC geschoben werden?
Wenn ich den Pfad hardcoden will kann ich mir den Quatsch mit FindBin auch gleich sparen.

Gruss Kristian\n\n

<!--EDIT|kristian|1128766713-->

ok, bei FindBind ist es eine Ausnahme...

[quote=renee,08.10.2005, 10:36]@Tom: was funktioniert an dem Code nicht?? Welche Fehlermeldung gibt es??[/quote]
Es wird nur "Das Programmverzeichnis ist:" ausgegeben, normalerwiese sollte danach ja der Pfad stehen, aber da steht nichts.

Hier kannst du Dir es anschauen -> Klick

Auf meinem Server kalppts wunderbar -> Klick

Quote

Ist mein Perl denn so unverständlich?

Ich bin kein Perl-Profi und da verstehe ich manchmal den für mich komplizierten Code nicht.

Habe mylibs durch module ersetzt, klappt aber trotzdem nicht.

@all

Falls Ihr mal die Daten des Servers sehen wollt, ich habe sysinfo hochgeladen, anschaun könnt Ihr euch das hier -> Klick

Tom\n\n

<!--EDIT|Tom|1128892812-->