Xpoint
   [напомнить пароль]

помогите отловить количество URL-ов

Метки: [без меток]
2006-07-30 18:42:57 [обр] nestandart[досье]
если в тексте количество УРЛ-ов более n - выдать ошибку.
уже всяко пытался ...
    if ($body =~ /((http:\/\/\w+){3,})/ig) {
    print "<font color=Fuchsia>aaaaaaaaaa</font>\n";
    }
и всё никак.
(урлами считаю пока только то, что начинается с http://)
спустя 3 часа 2 минуты [обр] Дворнов Роман(3/109)[досье]
my $body = " hello http://www.site.com/hello 
http://www.site.com hello http://www.site.com ";
my @urls = ($body =~ /http:\/\/(?:[a-z0-9\-]+\.)*[a-z0-9\-]+\.[a-z0-9\-]+/gi);
if (scalar @urls > 2)
{
  print "too many urls (" . (scalar @urls) . ")";
}
?
спустя 3 часа 35 минут [обр] nestandart[досье]
Дворнов Роман[досье]. спасибо, оно.
но как то уж слишком длинно.
пока так оставлю.
спустя 3 часа 7 минут [обр] Роман Чемисов(16/350)[досье]
nestandart[досье]
А как такой вариант:
$count++ for $body =~ m{http://}g;
if ($count > 2) {
...
}
Powered by POEM™ Engine Copyright © 2002-2005