Вообще-то здесь grep :)<br><br>[ grep { s/../..;g;1 } func() ]-&gt;[0]<br><br>Во-вторых,<br><br>my($result) = grep { .. } func();<br><br>В-третьих,<br><br>_s(func())<br><br>sub _s { .. }<br><br>В-четвертых,<br><br>_s func();<br>
<br>sub _s($) { .. }<br><br>или<br><br>sub _s(@) { .. }<br><br><br><div class="gmail_quote">2010/7/29 Eugene Toropov <span dir="ltr">&lt;<a href="mailto:jt@aaanet.ru">jt@aaanet.ru</a>&gt;</span><br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">






<div bgcolor="#ffffff">
<div><font face="Arial" size="2">Всем привет.</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Надо применить к результату func() замену 
s/%/\$/g.</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Другими словами,</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">[map {s/%/\$/g; $_} func()]-&gt;[0]</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Результат не должен зависеть от контекста 
вызова.</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Можно записать короче?</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Евгений</font></div>
<div><font face="Arial" size="2"><a href="mailto:jt@aaanet.ru" target="_blank">jt@aaanet.ru</a></font></div>
<div><font face="Arial" size="2"></font> </div></div>
<br>--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
<br></blockquote></div><br><br clear="all"><br>-- <br>С уважением,<br> Анатолий Шарифулин.<br>