Есть список ip, необходимо вывести только нужный ip столько сколько он встречается в тексте.
делаю так
if ($_=~ m/192.168.0.1/){print ;};
но при этом выводит также айпи 192.168.0.1xx
как находить строки только с заданным содержанием ?

• Простой вопрос,AMDmi3, 02:13 , 02-Окт-04
  • Простой вопрос,Grayich, 13:43 , 02-Окт-04
    • Простой вопрос,mirya, 19:41 , 02-Окт-04
      • Простой вопрос,Grayich, 18:05 , 03-Окт-04
• Простой вопрос,Grayich, 18:23 , 03-Окт-04
  • Простой вопрос,konst, 17:21 , 04-Окт-04
  • Простой вопрос,mthawk, 14:40 , 27-Окт-04

>Есть список ip, необходимо вывести только нужный ip столько сколько он встречается
>в тексте.
>делаю так
>if ($_=~ m/192.168.0.1/){print ;};
>но при этом выводит также айпи 192.168.0.1xx
>как находить строки только с заданным содержанием ?

А зачем регэксп, можно просто if ($_ eq "192.168.0.1")

А регэкспом можно так: /^192\.168\.0\.1$/

>А зачем регэксп, можно просто if ($_ eq "192.168.0.1")
>
>А регэкспом можно так: /^192\.168\.0\.1$/

а если строка вида:
"ола волыалв твы 192.168.0.1dsf jdsfjsd usdu"
есть ли попроще способ без предварительной обработки найти этот ip ?

>>А зачем регэксп, можно просто if ($_ eq "192.168.0.1")
>>
>>А регэкспом можно так: /^192\.168\.0\.1$/
>
>а если строка вида:
>"ола волыалв твы 192.168.0.1dsf jdsfjsd usdu"
>есть ли попроще способ без предварительной обработки найти этот ip ?

/(?:^|[^\d])192\.168\.0\.1(?:[^\d]|$)/

>/(?:^|[^\d])192\.168\.0\.1(?:[^\d]|$)/

Cпасибо. мдя трудновато ПЕРЛовые навороты сразу понять.

тут еще 1 вопрос проявился

можно ли в перле складывать и вычитать даты ? например

200410031805 - 6 = 200410031759

или нужно свою функцию писать ?

>тут еще 1 вопрос проявился
>
>можно ли в перле складывать и вычитать даты ? например
>
>200410031805 - 6 = 200410031759
>
>или нужно свою функцию писать ?

man Time::Local

>тут еще 1 вопрос проявился
>
>можно ли в перле складывать и вычитать даты ? например
>
>200410031805 - 6 = 200410031759
>
>или нужно свою функцию писать ?

Посмотри модуль Date::Calc