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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> поиск в нескольких строках. 
:(
    Опции темы
Trewsa
Дата 13.3.2013, 12:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Здравствуйте. Подскажите пожалуйста, как можно составить рег. выражение, которое проверяет в разных строках. 
Есть файл с содержимым вида:

Код

#in: data01
#words
#words
#out: data02

#in: data03
#words
#words
#out: data04

#in: data05
#words
#words
#out: data06


И вывести  data01:data02, data03:data04.
Я застрял на этом, просто не пойму как можно проверить следующую строку. 
Код

qr/in:\s+(data\w+)/g

 
С уважением.

PM MAIL   Вверх
DurRandir
Дата 13.3.2013, 13:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



while ($data =~ /in: (\w+).*?out: (\w+)/sg){
    print "$1:$2\n";
}
PM   Вверх
Trewsa
Дата 13.3.2013, 13:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Цитата(DurRandir @ 13.3.2013,  13:24)
while ($data =~ /in: (\w+).*?out: (\w+)/sg){
    print "$1:$2\n";
}

Спасибо большое! Но как можно загрузить весь файл в переменную? Ведь $data=<SOMEFILE> присваивает только первую строку. Можно ли тогда сначала в массив, потом массив в переменную.
И как можно в цикле  можно перейти к следующей строке

Код


while(<SOMEFILE>)   {
          print;
}


PM MAIL   Вверх
DurRandir
Дата 13.3.2013, 15:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



use File::Slurp, Luke

PS: это если файл маленький (по сравнению с RAM). Если большой - то надо читать построчно, ну и запоминать состояние.
PM   Вверх
Google
  Дата 19.10.2019, 15:52 (ссылка)  





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


 




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


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

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