Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Найти все ip адреса в файле 
V
    Опции темы
NZero
Дата 24.9.2013, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 358
Регистрация: 28.4.2010
Где: Москва

Репутация: нет
Всего: нет



Есть такой файл
Код

<?xml version="1.0" encoding="ISO-8859-1" ?> 
<!-- MSG-1 configuration version 1.2 --> 
<Root>
<IP_config>
<Primary_IP>172.19.5.11</Primary_IP> 
<Primary_mask>16</Primary_mask> 
<Sup_IP>172.19.5.12</Sup_IP> 
<Sup_mask>16</Sup_mask> 
<RTP_IP>172.19.5.13</RTP_IP> 
<RTP_mask>16</RTP_mask> 
<Primary_GW>172.19.5.1</Primary_GW> 
<Sup_GW>172.19.5.1</Sup_GW> 
<RTP_GW>172.19.5.1</RTP_GW> 
</IP_config>


Нужно найти все записи с IP адресом. Я ищу по точке

Код

if(/./)
{
...
}


Но так не работает, все остальные знаки находит кроме точек. Как разрулить эту ситуацию? Спасибо!

Добавлено через 4 минуты и 22 секунды
if ($str[$i] =~ /\./)
PM MAIL WWW ICQ   Вверх
krypt3r
Дата 25.9.2013, 06:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 359
Регистрация: 9.6.2009

Репутация: 2
Всего: 16



Херня, а не регулярка. Сделайте хотя бы /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/. Всяко лучше, чем одна точка
PS. IP-адреса хранятся в определенных узлах XML. Это намек заюзать спецмодули и извлекать эти самые узлы.

Это сообщение отредактировал(а) krypt3r - 25.9.2013, 06:05
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.2323 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.