<HTML><BODY>Можно же просто заюзать "keys" и получать значение по ключу в теле цикла.<br><br>Вторник, 21 января 2014, 18:19 +04:00 от Харпалёв Иван <ivan.kharpalev@gmail.com>:<br>
<blockquote style="border-left:1px solid #0857A6; margin:10px; padding:0 0 0 10px;">
<div id=""><div dir="ltr"><div><font color="#515151" face="Helvetica Neue, Arial, Helvetica, Geneva, sans-serif">Доброго времени суток, могучий MoscowPM!</font></div><font color="#515151" face="Helvetica Neue, Arial, Helvetica, Geneva, sans-serif"><div>
<font color="#515151" face="Helvetica Neue, Arial, Helvetica, Geneva, sans-serif"><br></font></div><div><font color="#515151" face="Helvetica Neue, Arial, Helvetica, Geneva, sans-serif">my $self = bless {}, $package;</font></div>
<div><br></div><div>Как сделать each $self ---- ?<br></div><div><font color="#515151" face="Helvetica Neue, Arial, Helvetica, Geneva, sans-serif"><br></font></div>Pelrdoc <a href="http://perldoc.perl.org/functions/each.html " target="_blank">http://perldoc.perl.org/functions/each.html </a></font><div>
<font color="#515151" face="Helvetica Neue, Arial, Helvetica, Geneva, sans-serif">говорит</font></div><div><font color="#515151" face="Helvetica Neue, Arial, Helvetica, Geneva, sans-serif">Starting with Perl 5.14, </font><a class="" href="http://perldoc.perl.org/functions/each.html" style="color:rgb(102,102,102);font-weight:bold" target="_blank">each</a><span style="color:rgb(81,81,81);font-family:'Helvetica Neue',Arial,Helvetica,Geneva,sans-serif;font-size:12.800000190734863px"> can take a scalar EXPR, which must hold reference to an unblessed hash or array.</span><br>
</div><div><span style="color:rgb(81,81,81);font-family:'Helvetica Neue',Arial,Helvetica,Geneva,sans-serif;font-size:12.800000190734863px"><br></span></div><div><span style="color:rgb(81,81,81);font-family:'Helvetica Neue',Arial,Helvetica,Geneva,sans-serif;font-size:12.800000190734863px">но всё-таки можно ли проитерироваться по блеснутому хешу?</span></div>
<div><span style="color:rgb(81,81,81);font-family:'Helvetica Neue',Arial,Helvetica,Geneva,sans-serif;font-size:12.800000190734863px"><br></span></div><div><font color="#515151" face="Helvetica Neue, Arial, Helvetica, Geneva, sans-serif">P.S. интернеты говорят про функцию unbless, но в perldoc ничего подобного не найду.</font></div>
<div><br></div></div>
-- <br>
Moscow.pm mailing list<br>
<a href="sentmsg?compose&To=moscow%2dpm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</div>
</blockquote>
<br>
<br>-- <br>Oleg Nurtdinov<br></BODY></HTML>