print "Content-type: text/plain\n\n";
print '@INC: ', join(' : ', @INC), "\n";
print "%ENV: \n";
print "$_:\t\t$ENV{$_}\n" for (sort keys %ENV);
Ich weiss von nichts. Pruefen, ob ein Modul installiert ist UND auch gefunden wird, kann man jedenfalls mit:
$have_module = eval { require LWP::Simple };
if ($have_module) {
// all fine
} else {
die("Can't find that fuckin' module!");
}
Hallo,
danke erstmal für die Antwort.
Ich habe beide Sachen ausprobiert.
#!/usr/bin/perl
print "Content-type: text/plain\n\n";
print '@INC: ', join(' : ', @INC), "\n";
print "%ENV: \n";
print "$_:\t\t$ENV{$_}\n" for (sort keys %ENV); --> Hier tritt der Fehler auf.
Wenn ich bei diesem Skript die letzte Zeile auskommentiere. läuft es durch,
ansonsten kommt der anfangs beschriebene Fehler.
$have_module = eval { require LWP::Simple };
if ($have_module) {
»» // all fine
} else {
»» die("Can't find that fuckin' module!");
}
Das hier bringt egal, was ich auch mache, immer den Fehler "Script produced no output"
Trotzdem danke, ich werde jetzt erstmal eine Antwort nach der anderen probieren.
Tschau, Stefan