Text-Datei auslesen!

[Jan]

Hi Jungs,

ich möchte mit einem Perl-Script eine Text-Datei auf meinem Server auslesen. Irgendwie bekomme ich das noch nicht richtig hin, weil ich ein absoluter Perl-Anfänger bin.

Beim Auslesen ist wichtig, das ich die Daten der Zeilen einzeln abfragen kann. Ich möchte also z.b. alles was in Zeile 5 steht. Und wenn ich zeile 20 aufrufe, obwohl die Datei nur z.B. 10 Zeilen hat, soll die variable von zeile 20 leer sein.

Kann mir jemand dabei helfen? Danke!

Die auszulesende Datei liegt unter http://www.kinoindex/media/news.htm

Jan

[Jan]

Sorry, die richtige URL lautet

http://www.kinoindex.de/media/news.txt

[Cheatah]

Hi,

http://www.kinoindex.de/media/news.txt

Micha hat Dir schon einen Code genannt. Wichtig ist dabei zu wissen, daß die Kenntnis obiger Adresse Dir gar nichts bringt. Der Dateiname ist der Serverpfad zur Datei, also so etwas wie "/www/user/kinoindex/media/news.txt". Dazu können wir Dir nichts spezielles sagen, auf den Seiten Deines Providers sollte die entsprechende Info zu finden sein. Wenn nicht, frag Deinen Provider.

Noch mal ein kurzer Code:

#!/usr/bin/perl
open(READ,"/www/user/kinoindex/media/news.txt");
my @file = <READ>;
close(READ);

print "Content-type: text/html\n\n"; # hat schon so manchen Internal Server Error verhindert ;-)
print "5. Zeile: $file[4]<BR>\n"; # Zählung beginnt bei 0!!!
print "20. Zeile: $file[19]<BR>\n";

Cheatah

[Jan]

Vielen lieben Dank für Eure Hilfe! Mein Serverpfad ist mir bekannt.

Ciao,
Jan

[Micha Pöhler]

müßte doch so gehen:

$i=0;
$a = Dateiname;

open(IN,$a);

while(<IN>) {
$b[$i]=$_;
$i++;
}
close (IN);

natürlich bleibt das array ab der stelle leer, wenn keine weiteren Zahlen kommen