|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nickolay Savin 2:5020/400 07 Dec 2000 09:19:44
To : All
Subject : REGEXP troubles
--------------------------------------------------------------------------------
Hе дайте помереть дураком, подскажите, где здесь ошибка:
######################################################################
$text = "aaa<HR>First part<HR>Second part<HR>Third part<HR>Fourth
part<HR>bbb";
@lst = ($text =~ m{ <HR>( (?:(?!<HR>).)* )<HR> }sx);
print @lst;
######################################################################
По моему замыслу, этот код должен напечатать:
First part
Second part
Third part
Fourth part
Он же печатает только:
First part
Как мне надо написать шаблон рег. выражения, чтобы получить то, что я хочу?
PS. Строка $text может быть произвольной длины.
PPS. Этот код был взят почти в точности из Per Cookbook.
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
