Hallo ,
Ich hab da eine Frage, und zwar hab ich da ein kleines Script, das mir alle Textdateien im Verzeichnis einliest und am Bildschirm ausgibt. Jetzt hab ich mich gefragt wie ich es ändern könnte, wenn das Script auf einem Server is (oder zumindest in einem anderen Verzeichnis).
Um die Daten von einem anderen Server zu holen hab ich an das LWP::Simple Modul gedacht, aber komm leider nicht drauf wie ich es einsetzen könnte.
Also ich wäre froh wenn ich zumindest mal weis, wie ich ein anderes Verzeichnis nach .txt Dateien abfragen kann. Es hat glaub ich etwas mit opendir zu tun, aber in meinem Buch is das leider etwas schlecht beschrieben, deswegen wollt ich mal fragen ob jemand da bescheit weis? Hier nun das Script :
#!/usr/bin/perl -w
use CGI qw(:standard);
@dateien = "";
@dateiinhalt = "";
print header;
@dateien = glob "*text*";
foreach $keys(@dateien) {
open (DATEI,"$keys") or die "Konnte $keys nicht oeffnen : $!\n";
@dateiinhalt = <DATEI>;
@dateiinhalt = reverse @dateiinhalt;
($letzte_zeile, @textdaten) = @dateiinhalt;
@textdaten = reverse @textdaten;
foreach $zeile(@textdaten) {
$zeile =~ s/\n/<br>/;
print "$zeile\n";
}
print "$letzte_zeile<br>\n";
print '*' x 20, "<br>\n";
close DATEI;
}