VPF::переменные $1, $2 - Форум программистов

burakov

Дата 5.3.2010, 12:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Добрый день,
подскажите пожалуйста
если искать в строке

my $str =~ /(.+)/

то что в скобках = $1,

а если условие поиска встречается более одного раза (5, 10?)

как тогда ???
в php результаты найденного помещаются в массив,
допустим встречается условие поиска в строки n раз ну тогда все эти n раз помещаются в массив
а как в perl в данном случае учесть все вхождения???

спасибо.

--------------------

Нотный архив http://libnote.ru скачать ноты бесплатно

shamber

Дата 5.3.2010, 13:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

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

burakov, while //g ?

Logo

Дата 5.3.2010, 13:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Модификатор g. Обычно используется такая вещь.

Код


while($str =~ /(.+)/g) { # в скалярном контексте m/.../ с g применяется многократно, и возвращает true, если очередное совпадение успешно
  print "\$1 = $1\n";
}

Еще можно получить сразу линейный список совпадений, если использовать m/.../ с g в списковом контексте

Код


foreach($str =~ /.+/g) {
  print "$_\n";
}

foreach($str =~ /(.+)(.+)/g) {
  print "$_\n";
}

burakov

Дата 5.3.2010, 14:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Спасибо. Помогли. Тему закрываю.

--------------------

Нотный архив http://libnote.ru скачать ноты бесплатно

RomanCh

Дата 6.3.2010, 00:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Хоть тему и считают закрытой, но я всё же добавлю и свои 5 копеек:

Цитата(burakov @ 5.3.2010, 12:35)

в php результаты найденного помещаются в массив

Максимально похожим на это будет:

Код


$s = '23 4534 879 987 088'; 
@a = $s =~ /(\d+)\s+/g; # В @a теперь полный список совпадений, т.е. 23, 4534, 879, 987, 088

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