Вообще-то здесь grep :)
[ grep { s/../..;g;1 } func() ]->[0]
Во-вторых,
my($result) = grep { .. } func();
В-третьих,
_s(func())
sub _s { .. }
В-четвертых,
_s func();
sub _s($) { .. }
или
sub _s(@) { .. }
2010/7/29 Eugene Toropov <[email protected]>
> Всем привет.
>
> Надо применить к результату func() замену s/%/\$/g.
>
> Другими словами,
>
> [map {s/%/\$/g; $_} func()]->[0]
>
> Результат не должен зависеть от контекста вызова.
>
> Можно записать короче?
>
> Евгений
> [email protected]
>
>
> --
> Moscow.pm mailing list
> [email protected] | http://moscow.pm.org
>
>
--
С уважением,
Анатолий Шарифулин.
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
