|
use IO::Socket;
$server = "www.xxx.ru";
$document = "http://www.xxx.ru/page.html";
$remote = IO::Socket::INET->new(
Proto=>"tcp",
PeerAddr=>$server,
PeerPort=>"80",
Reuse=>1,
Type => SOCK_STREAM)
or print "Can't connect to \"$server\" ($!)\n";
$remote -> send ("GET $document HTTP/1.0\n\n", 0) || return "Can't send query: $!";
@remote = <$remote>;
а потом регулярными выражениями
__________________
Всё будет хорошо!
|