03.03.2009, 20:32
|
|
Участник форума
Регистрация: 05.11.2008
Сообщений: 105
С нами:
9217801
Репутация:
71
|
|
Сообщение от DDoSька
Я знаю как это на php сделать:
PHP код:
$text=file_get_contents('http://google.com');
preg_match('#<title>(.*)</title>#',$text,$out);
echo $out[1];
Вот мне нужно тоже самое,только на PERL
То есть обязательно грабить с сайта
Я в перле не бум-бум ,извините.
Спасибо заранее
Код:
#!/usr/bin/perl
use LWP::Simple;
$content = get("http://www.mail.ru/");
die "Couldn't get it!" unless defined $content;
$content =~ m/<title>(.*?)<\/title>/img;
print $1;
Пользуйся на здоровье! :-)
Последний раз редактировалось demond; 03.03.2009 в 20:37..
|
|
|