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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> текст между разделителей 
V
    Опции темы
Loki
Дата 8.2.2009, 09:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



подскажите с регуляркой, что-бы можно было получить текст который наодится например в ковычках или в скобках, но не на одной строке, а на нескольких.
(текст текст) - вот так могу, а вот так хочу...
"текст
текст
"
Т.е. не факт что разделители будут на одной строке с текстом, нужно как-то искать до следующего, типо он как-бы закрывающим должен являться.
p.s. только убирать разделители нельзя, типо s/\"/ /;
пробовал так, но не получается получить только то что в кавычках.
Код

#!/usr/bin/perl -wT
use strict;
my @a = <DATA>;
my $aa=(join '', @a);
  #$aa =~ /"(.*?)"/s;
  $aa =~ /"([^"]*)"/;
print $aa;
__DATA__
"erqrqw
sdfsdfs
sdfs"

sdfsdfs

PM MAIL   Вверх
sir_nuf_nuf
Дата 8.2.2009, 12:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Код

#!/usr/bin/perl -w
use strict;
my $aa = do {local $/ = undef; <DATA>};
if ($aa =~ /(["(])(.*?)\1/s) {
    print $2;
}
__DATA__
"erqrqw
sdfsdfs
sdfs"
sdfsdfs


Вообщем почитай про модификаторы регулярных выражений


--------------------
user posted image
user posted image
PM MAIL Jabber   Вверх
Loki
Дата 8.2.2009, 16:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



------

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


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

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


 




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


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

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