Если по мне, то не очень :)<br><ul><li>двойное объявление переменной $dbfile, что ведет очистке переменой во втром случае<br></li><li>да-а, мы обсуждали на обеде в первый день YAPC, что shift - быстрей работает</li><li>доступ к конфе без указания хеша - мне твоя магия не понравилась :)</li>
<li>CamelCase - вообще зло для Perl&#39;а - perlstyle!</li></ul>Я бы твою функцию написал так:<br><br>sub open_database {<br>&nbsp;&nbsp;&nbsp; my $self = shift;<br>&nbsp;&nbsp;&nbsp; for (CFG-&gt;TmpStorage.&#39;/&#39;.$self-&gt;{Name}.&#39;.db&#39;) { # shift || ...<br>
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; $self-&gt;OpenExistsDatabase($_) || $self-&gt;RecoverBackupDatabase($_) || $self-&gt;CreateNewDatabase($_) || die &quot;$! $_&quot;;<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; return $self-&gt;{$_};<br>&nbsp;&nbsp;&nbsp; }<br>}<br><br>если все-таки нужен второй параметр, то для for - shift || ...<br>
<br><div class="gmail_quote">3 июня 2008 г. 3:10 пользователь Ivan B. Serezhkin &lt;<a href="mailto:ivan@serezhkin.com">ivan@serezhkin.com</a>&gt; написал:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Привет.<br>
Что скажете &nbsp;?<br>
Ну окромя того, что КамельКейс - это плохо ?<br>
sub OpenDatabase { # returns open dbfile with backup restoring workaround<br>
 &nbsp; &nbsp;my ($self,$dbfile)=@_;<br>
 &nbsp; &nbsp;my $dbfile||=CFG-&gt;TmpStorage.&#39;/&#39;.$self-&gt;{Name}.&#39;.db&#39;;<br>
 &nbsp; &nbsp;(<br>
 &nbsp; &nbsp; $self-&gt;OpenExistsDatabase($dbfile)<br>
 &nbsp; &nbsp; or $self-&gt;RecoverBackupDatabase($dbfile)<br>
 &nbsp; &nbsp; or $self-&gt;CreateNewDatabase($dbfile)<br>
 &nbsp; &nbsp;) and return $self-&gt;{$dbfile};<br>
 &nbsp; &nbsp;die &quot;$! $dbfile &quot;;<br>
}<br>
<font color="#888888"><br>
<br>
--<br>
Ivan B. Serezhkin<br>
<br>
_______________________________________________<br>
RostovOnDon-pm mailing list<br>
<a href="mailto:RostovOnDon-pm@pm.org">RostovOnDon-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rostovondon-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rostovondon-pm</a><br>
</font></blockquote></div><br><br clear="all"><br>-- <br>С уважением,<br> Анатолий Шарифулин.