Verzeichnis von anderem Server auslesen

[Christian Heiss]

Hallo,

ist es möglich via Perl ein Verzeichnis auf einem share von einem anderen Server auszulesen?

Alle meine bisherigen Versuche scheiterten.

Mein script:
#! /usr/bin/perl -w

use strict;
use CGI;

my ($query, $datei, $dateien, @dateien, $dateinamen, @dateinamen, $i);

$query = new CGI;

print $query->header();
print $query->start_html(-title=>'Intraweb-Server Test');

Verzeichnis öffnen

opendir(DIR, $query->param('ordner')) || die "Fehler beim Lesen des Verzeichnisses";

Dateien im Verzeichnis in ein Array einlesen

while ($datei = readdir(DIR)){
      @dateien = (@dateien,$datei);
}

Verzeichnis schliessen

closedir(DIR);

Erste zwei Elemente ("." und "..") aus Array entfernen

shift(@dateien);
shift(@dateien);

$dateien = @dateien;    # Länge des Datei-Arrays bestimmen
@dateinamen = @dateien; # Dateinamen zur Weiterverarbeitung speichern

for ($i = 0; $i < $dateien; $i++){      #Dateien ausgeben
    print '<a href="file:/'.$query->param('ordner').'/'.$dateien[$i].'">'.$dateinamen[$i].'</a><br>'; # Link anzeigen
}
print $query->end_html(); # HTML-Tags abschliessen