Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
Дрон
Зарегистрирован: 18.05.2002 Сообщения: 57 Откуда: Москва
|
Добавлено: Вт Окт 08 2002 18:01 Заголовок сообщения: Вырезать HEAD |
|
|
Скажите пожалуйста как получить всё что содержится в теге .... c www.citforum.ru например. Используя PERL ? Если знаете где или есть у вас маленький исходничек дайте плизззззз !!!! |
|
Вернуться к началу |
|
 |
mixa Гость
|
Добавлено: Ср Окт 16 2002 02:21 Заголовок сообщения: Re: Вырезать HEAD |
|
|
#!/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"; |
|
Вернуться к началу |
|
 |
|