[Comm] [OFF] Perl regex

[Sergey V. Degtyaryov]

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 там такой же, как у Вас, т.е. неправильный.

-- 
С уважением, Сергей Дегтярев
XMMS :