($_=func())=~tr/%/$/;
2010/7/29 Анатолий Шарифулин <[email protected]>: > Вообще-то здесь 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 > > -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
