А если всё-таки продолжать тему идиотских однострочников, то вот: return +($_=func())=~tr/%/$/&&()||(), $_ он, конечно же, длиннее первого варианта, но без мапов и грепов. И в одну строку
2010/7/29 Eugene Toropov <[email protected]>: > >> Стэп ван: >> [map {tr/%/$/; $_} func()]->[0] > > Принимается. > >> (my $result = func())=~tr/%/$/ > > Имеет право. Но тогда уж прощенекудный трехстрочник Шитова, ибо здесь все > равно "; $result" добавить надо. > >> >> 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 > -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
