[Comm] [OFF] Perl regex

[Comm] [OFF] Perl regex

[Alexey Morsov]

Привет,

Или лыжи не едут или я чего-то не поонимаю:
Кто-нибудь может придумать regex для извлечения из строки ip 
адреса короче и проще чем (\d+\.\d+\.\d+\.\d+) ?

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

Re: [Comm] [OFF] Perl regex

[Andrey Rybak]

Alexey Morsov wrote:

> Привет,
>
> Или лыжи не едут или я чего-то не поонимаю:
> Кто-нибудь может придумать regex для извлечения из строки ip адреса 
> короче и проще чем (\d+\.\d+\.\d+\.\d+) ?
>
Только так
[0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}

Re: [Comm] [OFF] Perl regex

[Alexey Morsov]

Andrey Rybak wrote:
> Alexey Morsov wrote:
> 
>> Привет,
>>
>> Или лыжи не едут или я чего-то не поонимаю:
>> Кто-нибудь может придумать regex для извлечения из строки ip адреса 
>> короче и проще чем (\d+\.\d+\.\d+\.\d+) ?
>>
> Только так
> [0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}
Ой - ну это еще длиньше... :-(
Эх... я пробовал (\w{13,15}) - так фиг
> 
> _______________________________________________
> Community mailing list
> Community@altlinux.ru
> http://www.altlinux.ru/mailman/listinfo/community
> 

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

[Comm] Re: [OFF] Perl regex

[Денис Смирнов]

On Mon, Mar 22, 2004 at 05:32:43PM +0300, Alexey Morsov wrote:

 AM> Ой - ну это еще длиньше... :-(
 AM> Эх... я пробовал (\w{13,15}) - так фиг

[0-9\.]{7,19}

Но лучше, всё-таки, не короче, а надёжнее:

[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}

-- 
С уважением, Денис

http://freesource.info

Re: [Comm] [OFF] Perl regex

[Igor Homyakov]

это классика !

^([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])$

Andrey Rybak said the following on 22.03.2004 17:19:
> Alexey Morsov wrote:
> 
>> Привет,
>>
>> Или лыжи не едут или я чего-то не поонимаю:
>> Кто-нибудь может придумать regex для извлечения из строки ip адреса
>> короче и проще чем (\d+\.\d+\.\d+\.\d+) ?
>>
> Только так
> [0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}
> 
> 
> !DSPAM:405eec7a287515517668684!
> 
> 

Re: [Comm] [OFF] Perl regex

[Alexey Morsov]

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])$
> 
Уважаемый - это разве короче?

> Andrey Rybak said the following on 22.03.2004 17:19:
> 
>>Alexey Morsov wrote:
>>
>>
>>>Привет,
>>>
>>>Или лыжи не едут или я чего-то не поонимаю:
>>>Кто-нибудь может придумать regex для извлечения из строки ip адреса
>>>короче и проще чем (\d+\.\d+\.\d+\.\d+) ?
>>>
>>
>>Только так
>>[0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}
>>
>>
>>!DSPAM:405eec7a287515517668684!
>>
>>
> 
> _______________________________________________
> Community mailing list
> Community@altlinux.ru
> http://www.altlinux.ru/mailman/listinfo/community
> 

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

Re: [Comm] [OFF] Perl regex

[Igor Homyakov]

нет, но
- это правильнее
- это класика жанра (оригинальная задача была немного другой, по этому
regex надо слегка упростить избавив от ненужных группировок и якорей)

Alexey Morsov said the following on 22.03.2004 18:13:

> 
> 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])$
>>
> Уважаемый - это разве короче?
> 
>> Andrey Rybak said the following on 22.03.2004 17:19:
>>
>>> Alexey Morsov wrote:
>>>
>>>
>>>> Привет,
>>>>
>>>> Или лыжи не едут или я чего-то не поонимаю:
>>>> Кто-нибудь может придумать regex для извлечения из строки ip адреса
>>>> короче и проще чем (\d+\.\d+\.\d+\.\d+) ?
>>>>
>>>
>>> Только так
>>> [0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}
>>>
>>>
>>>
>>>
>>>
>>
>> _______________________________________________
>> Community mailing list
>> Community@altlinux.ru
>> http://www.altlinux.ru/mailman/listinfo/community
>>
> 

Re[2]: [Comm] [OFF] Perl regex

[Maksim Otstavnov]

Hello Alexey,

Monday, March 22, 2004, 6:13:39 PM, you 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> Уважаемый - это разве короче?

Зато правильно, в отличие от приведенных вариантов. В смысле, вытащит
только валидные адреса.

-- 
Best regards,
 Maksim

Re: [Comm] [OFF] Perl regex

[Alexey Morsov]

Maksim Otstavnov wrote:
> Hello Alexey,
> 
> Monday, March 22, 2004, 6:13:39 PM, you 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-)

> 

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

Re: [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 :

[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

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

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

Re: [Comm] [OFF] Perl regex

[Mike Lykov]

В сообщении от Понедельник 22 Март 2004 19:13 Alexey Morsov написал:

> Уважаемый - это разве короче?

ценность регекспа не в длине, а в точности. или у тебя на бумаге места не 
хватает?

-- 
Mike

Re: [Comm] [OFF] Perl regex

[Alexey Morsov]

Mike Lykov wrote:

> В сообщении от Понедельник 22 Март 2004 19:13 Alexey Morsov написал:
> 
> 
>>Уважаемый - это разве короче?
> 
> 
> ценность регекспа не в длине, а в точности. или у тебя на бумаге места не 
> хватает?
> 
уважаемый, ну вот если я парсю логи сквида - моего сквида, с моей 
сеткой - ну как там может быть невалидный адрес? Если тока сквид 
круто ошибеться (вероятность чего гораздо меньше чем вероятность 
моей ошибки)... А же не говорю про общий всеобъемлющий случай. Я 
говорю про конкретный прикладной вариант - на кой 
мнеанализировать все возможные варианты ip адреса если у меня эти 
ip адреса различаються пардон последней тройкой...
Могу ж вообще написать (192\.168\.130\.\d\d\d) и все прокатит

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

[Comm] Re: [OFF] Perl regex

[Денис Смирнов]

On Tue, Mar 23, 2004 at 10:16:42AM +0300, Alexey Morsov wrote:

 AM> уважаемый, ну вот если я парсю логи сквида - моего сквида, с моей 
 AM> сеткой - ну как там может быть невалидный адрес? Если тока сквид 
 AM> круто ошибеться (вероятность чего гораздо меньше чем вероятность 
 AM> моей ошибки)... А же не говорю про общий всеобъемлющий случай. Я 
 AM> говорю про конкретный прикладной вариант - на кой 
 AM> мнеанализировать все возможные варианты ip адреса если у меня эти 
 AM> ip адреса различаються пардон последней тройкой...
 AM> Могу ж вообще написать (192\.168\.130\.\d\d\d) и все прокатит

И это будет правильнее всего. А ещё правильнее
(192\.168\.130\.[12]?\d?\d)

Мало ли что у тебя случится? Сбой на диске, глюка чья-то, ещё что-нибудь.
И тут у тебя скрипт честно матюгнётся на некорректные данные, и это будет
очень хорошо.
 
-- 
С уважением, Денис

http://freesource.info

Re: [Comm] [OFF] Perl regex

[Alexey Morsov]

Andrey Rybak wrote:
> Alexey Morsov wrote:
> 
>> Привет,
>>
>> Или лыжи не едут или я чего-то не поонимаю:
>> Кто-нибудь может придумать regex для извлечения из строки ip адреса 
>> короче и проще чем (\d+\.\d+\.\d+\.\d+) ?
>>
> Только так
> [0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}
Хм... А где вы видели ip с обязательными тремя цифрами в 
последней триаде?
> 
> _______________________________________________
> Community mailing list
> Community@altlinux.ru
> http://www.altlinux.ru/mailman/listinfo/community
> 

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

[Comm] Re: [OFF] Perl regex

[Michael Shigorin]

On Tue, Mar 23, 2004 at 06:19:20PM +0300, Alexey Morsov wrote:
> >Только так
> >[0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}
> Хм... А где вы видели ip с обязательными тремя цифрами в 
> последней триаде?

В любой, вообще говоря. :)

-- 
 ---- WBR, Michael Shigorin <mike@altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/

Re: [Comm] Re: [OFF] Perl regex

[Alexey Morsov]

Michael Shigorin wrote:
> On Tue, Mar 23, 2004 at 06:19:20PM +0300, Alexey Morsov wrote:
> 
>>>Только так
>>>[0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}
>>
>>Хм... А где вы видели ip с обязательными тремя цифрами в 
>>последней триаде?
> 
> 
> В любой, вообще говоря. :)
Мда? 8-( ) Никогда не видел? А мона кусочек лога того чуда 
которое записывает именно 192.168.130.001 ?
> 

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

Re: [Comm] Re: [OFF] Perl regex

[Andrey Rybak]

Мда? 8-( ) Никогда не видел? А мона кусочек лога того чуда которое 
записывает именно 192.168.130.001 ?

[0-9]\{3\} может означать и 1 и 01 и 001

[Comm] Re: [OFF] Perl regex

[Michael Shigorin]

On Tue, Mar 23, 2004 at 06:41:50PM +0300, Alexey Morsov wrote:
> >>>Только так
> >>>[0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}\.[0-9]\{3\}
> >>Хм... А где вы видели ip с обязательными тремя цифрами в 
> >>последней триаде?
> >В любой, вообще говоря. :)
> Мда? 8-( ) Никогда не видел? А мона кусочек лога того чуда
> которое записывает именно 192.168.130.001 ?

А .101 что -- не должно ловиться регэксом?

Там или {1,3}, или как-то умнее -- с учетом байтовых значений.

-- 
 ---- WBR, Michael Shigorin <mike@altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/

Re: [Comm] [OFF] Perl regex

[Alexander Leschinsky]

Hello Alexey,

   On Mon, 22 Mar 2004 16:52:44 +0300 (22.03.2004 18:52 my local time),
   received Monday, March 22, 2004 at 21:12:33,
   you wrote about "[Comm] [OFF] Perl regex"
   at least in part:

> короче и проще чем (\d+\.\d+\.\d+\.\d+)
                     (\d{1,3}\.){3}\d{1,3}
                     
Не короче, но проще (как мало - читабельнее)
-- 
Best regards,
 Alexander Leschinsky

Re: [Comm] [OFF] Perl regex

[Alexey Morsov]

Alexander Leschinsky wrote:

> Hello Alexey,
> 
>    On Mon, 22 Mar 2004 16:52:44 +0300 (22.03.2004 18:52 my local time),
>    received Monday, March 22, 2004 at 21:12:33,
>    you wrote about "[Comm] [OFF] Perl regex"
>    at least in part:
> 
> 
>>короче и проще чем (\d+\.\d+\.\d+\.\d+)
> 
>                      (\d{1,3}\.){3}\d{1,3}
>                      
> Не короче, но проще (как мало - читабельнее)
О!!! Хоть один выдал то что я спрашивал! Спасибо вам большое! Это 
уже мысль... а если вот так:
(\d{3}\.){3}\d{1,3} для моего случая.. здорово.

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

Re: [Comm] [OFF] Perl regex

[Alexey I. Froloff]

[-- Attachment #1: Type: text/plain, Size: 717 bytes --]

* Alexey Morsov <samurai@ricom.ru> [040323 10:32]:
> >                     (\d{1,3}\.){3}\d{1,3}

> >Не короче, но проще (как мало - читабельнее)
> О!!! Хоть один выдал то что я спрашивал! Спасибо вам большое! Это 
> уже мысль... а если вот так:
> (\d{3}\.){3}\d{1,3} для моего случая.. здорово.
Хм... {} в перле довольно дорогая операция, насколько я помню...

-- 
Regards, Sir Raorn.
-------------------
Предыдущее (-alt3) и эти изменения исправляют ошибки, которые, насколько я
понимаю, благодаря технологии PrivilegeSeparation в худшем случае могут
привести к возможности исполнения кода с правами псевдопользователя в
пустом чруте.  К тому же что ещё и не известно, могут ли.
		-- ldv in devel@

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [Comm] [OFF] Perl regex

[Alexey Morsov]

Alexey I. Froloff wrote:
> * Alexey Morsov <samurai@ricom.ru> [040323 10:32]:
> 
>>>                    (\d{1,3}\.){3}\d{1,3}
> 
> 
>>>Не короче, но проще (как мало - читабельнее)
>>
>>О!!! Хоть один выдал то что я спрашивал! Спасибо вам большое! Это 
>>уже мысль... а если вот так:
>>(\d{3}\.){3}\d{1,3} для моего случая.. здорово.
> 
> Хм... {} в перле довольно дорогая операция, насколько я помню...
ну вообще-то в "Ламе"  написано что "\d+ с лихвой перекрывают 
большинство случаев" - что-то в этом роде...

> 
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Community mailing list
> Community@altlinux.ru
> http://www.altlinux.ru/mailman/listinfo/community

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

Re: [Comm] [OFF] Perl regex

[Artem K. Jouravsky]

On Tue, Mar 23, 2004 at 10:19:56AM +0300, Alexey Morsov wrote:
> >Не короче, но проще (как мало - читабельнее)
> О!!! Хоть один выдал то что я спрашивал! Спасибо вам большое! Это 
> уже мысль... а если вот так:
> (\d{3}\.){3}\d{1,3} для моего случая.. здорово.
Если ваш случай -- с обязательными тремя цифрами в первой позиции, то да.

--
С уважением,
   Артём.
ЗАО "СЕМА.РУ"
************
Real programmers don't bring brown-bag lunches.  If the vending machine
doesn't sell it, they don't eat it.  Vending machines don't sell quiche.

Re: [Comm] [OFF] Perl regex

[Mike Lykov]

В сообщении от Понедельник 22 Март 2004 17:52 Alexey Morsov написал:

> Кто-нибудь может придумать regex для извлечения из строки ip
> адреса короче и проще чем (\d+\.\d+\.\d+\.\d+) ?

зачем короче и проще? можно только сложнее - учесть, что только 3 цифры, и 
учесть, что первая цифра каждого сегмента может быть только 1 или 2.

вот это будет верный регексп ;)

-- 
Mike

Re: [Comm] [OFF] Perl regex

[Alexey Morsov]

Mike Lykov wrote:

> В сообщении от Понедельник 22 Март 2004 17:52 Alexey Morsov написал:
> 
> 
>>Кто-нибудь может придумать regex для извлечения из строки ip
>>адреса короче и проще чем (\d+\.\d+\.\d+\.\d+) ?
> 
> 
> зачем короче и проще? можно только сложнее - учесть, что только 3 цифры, и 
> учесть, что первая цифра каждого сегмента может быть только 1 или 2.
> 
> вот это будет верный регексп ;)
> 
Ну ладно ладно - утоптали вы меня- убедили - дурак был дураком и 
помру ;-)
Просто чтобы вытащить строку из access.log сквида получаеться 
такая длиннющая конструкция? А их можно как-то переносить в 
пределах if(m/.../)?

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

Re: [Comm] [OFF] Perl regex

[Mike Lykov]

В сообщении от Вторник 23 Март 2004 11:21 Alexey Morsov написал:

> Просто чтобы вытащить строку из access.log сквида получаеться
> такая длиннющая конструкция?
а какая разница, какой она длины, если работает верно? (верно - это быстро и 
точно).
  
>    А их можно как-то переносить в
> пределах if(m/.../)?
а зачем переносить? чтобы в экран влезало? по моему, это последний фактор при 
программировании.
-- 
Mike

[Comm] Re: [OFF] Perl regex

[Денис Смирнов]

On Tue, Mar 23, 2004 at 10:21:32AM +0300, Alexey Morsov wrote:
 AM> Ну ладно ладно - утоптали вы меня- убедили - дурак был дураком и 
 AM> помру ;-)
 AM> Просто чтобы вытащить строку из access.log сквида получаеться 
 AM> такая длиннющая конструкция? А их можно как-то переносить в 
 AM> пределах if(m/.../)?

На это есть опция x.
 
-- 
С уважением, Денис

http://freesource.info