[Comm] Re: [OFF] Perl regex

[Konstantin A. Lepikhov]

Hi Sergey!

Monday 22, at 11:30:31 PM you wrote:

> Alexey Morsov wrote:
> 
> >>AM> Igor Homyakov wrote:
> >>
> >>>>это классика !
> >>>>
> >>>>^([01]?\d\d?|2[0-4]\d|25[0-5])\.([01]?\d\d?|2[0-4]\d|25[0-5])\.
> >>>>([01]?\d\d?|2[0-4]\d|25[0-5])\.([01]?\d\d?|2[0-4]\d|25[0-5])$
> >>>>
> >>
> >>AM> Уважаемый - это разве короче?
> >>
> >>Зато правильно, в отличие от приведенных вариантов. В смысле, вытащит
> >>только валидные адреса.
> >
> >дык я ж спрашивал как короче а не как валиднее - не валидно быть не  
> >могет потому что логи моего сквида - и сетка моя - ip сам даю за мзду 8-)
> 
> Если Вас интересует краткость:
> use NetAddr::IP::Find;
> $num_found = find_ipaddrs($text, \&callback);
> 
> На всякий случай -- regexp там такой же, как у Вас, т.е. неправильный.
> 
use Net::IP::Match;
use Net::Patricia; - самый правильный и быстрый вариант :)

-- 
WBR, Konstantin	      chat with ==>ICQ: 109916175
     Lepikhov,	      speak  to ==>JID: lakostis на jabber.org
aka L.A. Kostis       write  to ==>mailto:lakostis на pisem.net.nospam

...The information is like the bank... 			  (c) EC8OR