Guest_imported
New member
- Jan 1, 1970
- 0
I need help for my script that should retrieve an ASP-webpage through Perl.
(for example this page:
I only retrieve an Error-Webpage that the script or file isn't located on the server.
I used this Script:
---------------------------------------
#!/usr/bin/perl -w
use IO::Socket;
$host = "$EOL = "\015\012";
$BLANK = $EOL x 2;
foreach $document ( "" )
{
$remote = IO::Socket::INET->new( Proto => "tcp",
PeerAddr => $host,
PeerPort => "http(80)",
);
unless ($remote) { die "cannot connect to http daemon on $host" }
$remote->autoflush(1);
print $remote "GET $document" . $BLANK;
while ( <$remote> ) { print }
close $remote;
}
---------------------------------------
It would be great if anybody could help me ;-)
(for example this page:
I only retrieve an Error-Webpage that the script or file isn't located on the server.
I used this Script:
---------------------------------------
#!/usr/bin/perl -w
use IO::Socket;
$host = "$EOL = "\015\012";
$BLANK = $EOL x 2;
foreach $document ( "" )
{
$remote = IO::Socket::INET->new( Proto => "tcp",
PeerAddr => $host,
PeerPort => "http(80)",
);
unless ($remote) { die "cannot connect to http daemon on $host" }
$remote->autoflush(1);
print $remote "GET $document" . $BLANK;
while ( <$remote> ) { print }
close $remote;
}
---------------------------------------
It would be great if anybody could help me ;-)