знатокам PERL

0

0

Есть переменная которая содержит строчки:

$str = "qwerty\n".
       "asdfgh\n".
       "12dfdffgh\n".
       "asdfgh\n".
       "12ghtyhnbthnbasdfgh\n";

необходимо последовательно обойти все строчки в переменной $str и
найти все строчки начинающиеся с 12!

Пример из Perl Cookbook не работает:
print "$1\n" while($str =~ /^(12.*)$/m);

split не предлагать. Это просто пример чтобы понять как это делать.
Формат с которым вожусь гораздо сложнее.

Спасибо!!!

Ссылка

←	[c#] как отформатировать вывод переменной?

отформатировать дату на PHP к читабельному виду

→

print "$1\n" while($str =~ /^(12.*?)$/gm);

anonymous
(28.04.06 11:11:18 MSD)

Ответ на: комментарий от anonymous 28.04.06 11:11:18 MSD

2anonymous (*) (28.04.2006 11:11:18)
Спасибо, рабоатет...причем даже в таком варианте

print "$1\n" while($str =~ /^(12.*)$/gm);

Можно разъеснить зачем g, если уже m есть?
Еще раз спасибо!

anonymous
(28.04.06 15:02:31 MSD)

Ответ на: комментарий от anonymous 28.04.06 15:02:31 MSD

> Можно разъеснить зачем g, если уже m есть?

Если правильно помню, флаг g означает что нужно не останавливаться на первом совпадении, а найти максимальное количество подстрок, удовлетворяющих РВ.

slav ★★
(28.04.06 23:00:03 MSD)

Ответ на: комментарий от slav 28.04.06 23:00:03 MSD

При наличии g в match (m/.../ ), запоминается последняя позиция в строке поиска и на след. итерации цикла поиск продолжается с нее, а не начинается с начала строки.

~~sdio~~ ★★★★★
(29.04.06 12:04:38 MSD)

Ссылка

Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.

←	[c#] как отформатировать вывод переменной?

Development

отформатировать дату на PHP к читабельному виду

→

Похожие темы