LWP Links prüfen *war get plapla help pls: ich verzweifle (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]4418[/thread]

LWP Links prüfen *war get plapla help pls: ich verzweifle

Leser: 2

Gast Gast

2006-04-16 13:36

mein programm soll können:
aus einer scan.txt ZEILENWEISE die links checken ob die index.html vorhanden ist.... das ghet auch, sobald ich in der scan.txt nur 1 link drin hab, sobald mehr drin stehen, sagt er mir nen fehler... hier mein code

Code: (dl )

use LWP::Simple;

open(FILE, "<scan.txt") or die "\nDatei kann nicht geöffnet werden!\n";
my $host = <FILE>;

foreach ($host) 
{
    get ("[URL=http://$host/index.html]http://$host/index.html"[/URL]) or die "Keine Index Datei";
      print "\nIndex Datei vorhanden";
    print "\n$host";
}
close FILE;

ich möchte gerne das er zeilenweise den link ausliest, wenn ich zb 3 link in der scan.txt stehen hab

bitte helft mir...

//Modedit GwenDragon: Code-Tags hinzugefügt; Threadtitel geändert\n\n

Ronnie

2006-04-16 14:44

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

[quote=Guest,16.04.2006, 11:36]bitte helft mir...[/quote]
Wenn du ein Array - statt eines Skalars - verwenden willst, musst du auch das passende Sigil nutzen: @

Code: (dl )

1
2
3

my @host = <FILE>;

foreach (@host)

coax

2006-04-16 15:03

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

Die Anweisung

Code: (dl )

my $host = <FILE>;

liest nur eine Zeile in $host ein. Entweder du liest die gesamte Datei in ein Array ein und iterierst dann ueber das Array oder du liest in einer while-Schleife so lange zeilenweise ein bis das Ende der Datei erreicht ist.

Datei zeilenweise in ein Array einlesen und ueber Array iterieren

Code: (dl )

my(@hosts) = <FILE>;
chomp(@hosts);

foreach my $host (@hosts) {

    # mach etwas mit $host
}

Datei zeilenweise durchwandern

Code: (dl )

while( my $host = <FILE> ) {
    chomp($host);

    # mach was mit $host
}

Sollte dir noch etwas unklar sein, wirst du sicher durch etwas stoebern im Forum fuendig.

Grusz Christian.

PS: naechstes Mal bitte aussagekraeftigeren Thread-Titel verwenden

,,Das perlt aber heute wieder...'' -- Dittsche

GwenDragon

2006-04-16 22:07

User since
2005-01-17
14748 Artikel
Admin1

@get mit lwp und schleife (Gast)
Bitte Code-Tags benutzen!

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2006-04-16 13:36.