From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <samurai@ricom.ru>
Message-ID: <405FE392.4020505@ricom.ru>
Date: Tue, 23 Mar 2004 10:13:22 +0300
From: Alexey Morsov <samurai@ricom.ru>
Organization: Ricom-Trust
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US;
	rv:1.6a) Gecko/20031030
X-Accept-Language: ru-ru, ru, ja
MIME-Version: 1.0
To: community@altlinux.ru
Subject: Re: [Comm] [OFF] Perl regex
References: <405EEFAC.20209@ricom.ru>	<405EF5F8.2010004@iop.kiev.ua>	<405F007F.40908@ramax.spb.ru>	<405F02A3.5070300@ricom.ru>	<16515945258.20040322184444@otstavnov.com>	<405F1A36.7090406@ricom.ru>
	<405F4CE7.4020805@beltel.ru>
In-Reply-To: <405F4CE7.4020805@beltel.ru>
Content-Type: text/plain; charset=KOI8-R; format=flowed
Content-Transfer-Encoding: 8bit
X-BeenThere: community@altlinux.ru
X-Mailman-Version: 2.1.4
Precedence: list
Reply-To: community@altlinux.ru
List-Id: Mailing list for ALT Linux users <community.altlinux.ru>
List-Unsubscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://www.altlinux.ru/pipermail/community>
List-Post: <mailto:community@altlinux.ru>
List-Help: <mailto:community-request@altlinux.ru?subject=help>
List-Subscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Tue, 23 Mar 2004 07:13:42 -0000
Archived-At: <http://lore.altlinux.org/community/405FE392.4020505@ricom.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>


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

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