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
