<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 ">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><code class="" style="background-color:rgb(238,238,221);border:1px solid rgb(204,204,204);font-size:12.800000190734863px;color:rgb(81,81,81)"><a class="" href="http://perldoc.perl.org/functions/each.html" style="color:rgb(102,102,102);font-weight:bold">each</a></code><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>