On Sat, 11 Jun 2011 10:13:44 +0300, Andrei wrote:

Тогда забыть про регэкспы. Это почти как парсинг html -- в общем случае
регэкспами не парсится.

предчувствие --- что должно рекурсивно.
Regexp-Common работает же.

On 11 Jun 2011 09:11, "Aleksander Gorohovski" <[email protected]>
wrote:
On Sat, 11 Jun 2011 10:03:11 +0300, Andrei wrote:

@str = map { $_ . '{' } grep {defined $_} split /{/, $str;

Как-то так...

К сожалению не всё так просто,
в 'any symbols' of $str могут быть вложенные парные
фигурные скобки {}
:(
т.е.
$str = '{any {symbols}}{{any} symbols}1...'

out:
{any {symbols}}
{{any} symbols}1
...
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить