Acho q vc não entendeu o ponto da &#39;frescura&#39;.<br><br>A frescura estava em fazer q{&lt;}, ao invés de simplesmente &#39;&lt;&#39;. O resto do código é tratamento de erro(não muito bom, por sinal). Mas isso não tem nada de diferente. <br>
<br>&#39;open... or die $!&#39; é uma situação que eu considero ruim, simplemente porque para o programa sem maiores explicações. E isto não é uma boa idéia(ao meu ver, pelo menos). Eu quis expressar apenas que é melhor ter no mínimo, algum tipo de tratamento de erro... <br>
<br><br><br><div class="gmail_quote">2010/1/29 Nelson Ferraz <span dir="ltr">&lt;<a href="mailto:nferraz@gmail.com">nferraz@gmail.com</a>&gt;</span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="im">&gt; Q frescura! porque não simplesmente:<br>
&gt; my $file = &#39;enterprise.txt&#39;<br>
&gt; eval{open my $fabricante,&#39;&lt;&#39;, $file};<br>
&gt; if($!){<br>
&gt;                print &quot;\nProblemas ao abrir o arquivo &#39;$file&#39;  -  $!&quot;;<br>
&gt; }else {<br>
&gt; #Alguma coisa util aqui...<br>
&gt;<br>
&gt; }<br>
<br>
</div>Uma razao simples: consistencia.<br>
<br>
A forma mais usada pela comunidade e&#39;:<br>
<br>
open my $f, &#39;&lt;&#39;, $file or die &quot;Can&#39;t open: $!\n&quot;;<br>
# ...<br>
close $f;<br>
<br>
Se voce escrever de maneira diferente, todo mundo que for ler seu<br>
codigo vai ter que parar por um momento e analisar o codigo, para<br>
tentar descobrir porque diabos voce fez daquele jeito.<br>
<br>
TIMTOWTDI nao significa que voce deve, necessariamente, fazer tudo de<br>
uma maneira diferente.<br>
<font color="#888888"><br>
--<br>
Nelson Ferraz<br>
<br>
Free Software Foundation Associate Member #3203<br>
Projeto Software Livre Brasil (<a href="http://www.softwarelivre.org.br" target="_blank">www.softwarelivre.org.br</a>)<br>
Sociedade Perl do Brasil (<a href="http://www.perl.org.br" target="_blank">www.perl.org.br</a>)<br>
Rede Livre de Compartilhamento de Cultura Digital<br>
</font><div><div></div><div class="h5">_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>André Garcia Carneiro<br>Analista/Desenvolvedor Perl<br><br><br>