nicht angemeldet
Hallo,
Habe den Sambar Server 5.1 Beta5 installiert, wollte nun einen einfach Serverupload von Dateien über Perl machen.
Leider hab ich folgendes Problem, wenn ich den Skript laufen lassen will:
Auszug aus dem Debbug:
-Can't locate strict.pm in @INC (@INC contains: .) at filetest.pl line3
-BEGIN faild--compilation aborted at filetest.pl line 3
Das Skript stammt auch aus Shelf-Html, das aussieht wie folgt:
#!/usr/bin/perl
use strict;
use CGI::Carp qw(fatalsToBrowser); # Modul fuer CGI-Programme
my $cgi = new CGI; # neues Objekt erstellen
Content-type fuer die Ausgabe
print $cgi->header(-type => 'text/html');
die datei-daten holen
my $file = $cgi->param("myfile");
dateinamen erstellen und die datei auf dem server speichern
my $fname = 'file_'.$$.'_'.$ENV{REMOTE_ADDRESS};
open DAT,'>'.$fname or die 'Error processing file: ',$!;
Dateien in den Binaer-Modus schalten
binmode $file;
binmode DAT;
my $data;
while(read $file,$data,1024) {
print DAT $data;
}
close DAT;
print <<HTML;
<html>
<head>
<title>Fileupload</title>
</head>
<body bgcolor="#FFFFFF">
<h1>Die Datei $file wurde erfolgreich hochgeladen.</h1>
<p>
Die Datei $file wurde erfolgreich auf dem Server
gespeichert.
</p>
</body>
</html>
HTML
Das Skript läuft unter Apache einwandfrei, müsste es aber auf dem Sambar Server zum laufen bringen.
Kann es daher sein das dieser Server "use CGI;" garnicht unterstützt, da er die Module nicht lädt?
Hat jemand dafür eine Lösung???
Vielen Dank
Mfg,
Martin