Архив форумов ЦИТФорума

[Дрон]

Скажите пожалуйста как получить
всё что содержится в теге ....
c www.citforum.ru например.
Используя PERL ?
Если знаете где или есть у вас маленький исходничек дайте плизззззз !!!!

[mixa]

#!/usr/bin/perl -w

use IO::Socket;

$s = IO::Socket::INET->new(Type => SOCK_STREAM, Proto => "tcp", PeerAddr => 'www.citforum.ru:80');

if (!defined($s) || !$s->opened) {
print "Not Open\n";
exit(0);
}

print $s "GET / HTTP/1.0\r\n";
print $s "Host: www.citforum.ru\r\n";
print $s "\r\n";

$ans = join("", );

$ans =~ /\.*\/sim;

print "=$&=\n";