форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Проблема в регулярных выражениях"
Сообщение от edwin (ok) on 09-Сен-05, 00:39  (MSK)
Добрый день коллеги. Столкнулся я со странной проблемой в работе рег. выражений на perl. Суть: if ( $a =~ /.*PROBLEM.*/ ){ # код прогарммы } Если переменная $a задана в программе (к примеру: $a="sdfPROBLEMqserg") Все Ok. Теперь представим что данные считываються из файла: #!/usr/bin/perl -w while (1) { open(PIPE,"tail -f -c 600 /home/edwin/test|"); while(<PIPE>){   if ( $_ =~ /Subject/ ){ $a=$_;         if ( $a =~ /.*PROBLEM.*/ ){           # код программы         }         } } } А в файле ест строка с PROBLEM. Не работает ;(( Подскажите в чем может быть проблема.
	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "Проблема в регулярных выражениях"
Сообщение от edwin (ok) on 09-Сен-05, 01:02  (MSK)
>А в файле ест строка с PROBLEM. Вернее есть строка: Subject: PROBLEM
Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Проблема в регулярных выражениях"
Сообщение от edwin (ok) on 09-Сен-05, 04:48  (MSK)
Проблема решилась след. образом вместо         if ( $a =~ /.*PROBLEM.*/ ){ необходимо: if ($_=~m/PROBLEM/g){ И все заработало как надо.
Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ]

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.