Opened by Gast at 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
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
<!--EDIT|GwenDragon|1145210755-->
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
)
1
2
3
4
5
6
7
8
9
10
11
12
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
<!--EDIT|GwenDragon|1145210755-->