(Вопрос)Perl script и html table
 

Люди кто может помочь с Перлом?
Проблема такая, есть перловский скрипт и есть html страница, находятся они на разных серверах, скрипт генерит полную страницу.... А нужно на другой странице достать из скрипта только несколько интересующих таблиц

Здесь скрипт

А здесь таблица

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>;

а потом регулярными выражениями

Stasik
You are the best of the best.