[Comm] [OFF] Perl regex

[Alexey Morsov]

Sergey V. Degtyaryov 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 там такой же, как у Вас, т.е. неправильный.
> 
Так - все - флейм пошел - закрываю тему ...

-- 
С наилучшими пожеланиями,
Алексей.