<div dir="ltr">А, вот такая штука делает unbless<div><a href="https://metacpan.org/pod/Data::Structure::Util">https://metacpan.org/pod/Data::Structure::Util</a><br></div><div><br></div><div>но она меняет аргументы. И это не тру, если надо просто проитерироватсья.</div>
</div><div class="gmail_extra"><br><br><div class="gmail_quote">21 января 2014 г., 18:19 пользователь Харпалёв Иван <span dir="ltr"><<a href="mailto:ivan.kharpalev@gmail.com" target="_blank">ivan.kharpalev@gmail.com</a>></span> написал:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><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><code style="background-color:rgb(238,238,221);border:1px solid rgb(204,204,204);font-size:12.800000190734863px;color:rgb(81,81,81)"><a href="http://perldoc.perl.org/functions/each.html" style="color:rgb(102,102,102);font-weight:bold" target="_blank">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>
</blockquote></div><br></div>