Hallo,
für eine Intranet-„Anwendung“ möchte ich auf ein Netzlaufwerk zuweisen,
weiß aber nicht wie.
Folgendes Script habe ich momentan:
#!c:/programme/perl/bin/perl.exe
use File::Spec::Functions;
use File::Find;
use Time::localtime;
use cwd;
print "Content-type: text/plain; charset=iso-8859-1\n\n";
find(\&wanted, **PFADANGABE** );
sub wanted() {
return unless -d $\_;
return if $\_ eq curdir();
my $dirname = $File::Find::name;
print "$dirname
";
}
wenn die Pfadangabe auf ein lokales Verzeichnis am Webserver verweist, dann werden mir die Verzeichnisse ausgegeben, ansonsten erfolgt einfach keine Ausgabe.
Nun möchte ich aber das die Ausgabe eines anderen Servers bzw. Netzlaufwerkes erfolgt.
Kann man das überhaupt mit Perl realisieren?
Danke und Gruß
Marcel