Acho q vc não entendeu o ponto da 'frescura'.<br><br>A frescura estava em fazer q{<}, ao invés de simplesmente '<'. O resto do código é tratamento de erro(não muito bom, por sinal). Mas isso não tem nada de diferente. <br>
<br>'open... or die $!' é 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"><<a href="mailto:nferraz@gmail.com">nferraz@gmail.com</a>></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">> Q frescura! porque não simplesmente:<br>
> my $file = 'enterprise.txt'<br>
> eval{open my $fabricante,'<', $file};<br>
> if($!){<br>
> print "\nProblemas ao abrir o arquivo '$file' - $!";<br>
> }else {<br>
> #Alguma coisa util aqui...<br>
><br>
> }<br>
<br>
</div>Uma razao simples: consistencia.<br>
<br>
A forma mais usada pela comunidade e':<br>
<br>
open my $f, '<', $file or die "Can't open: $!\n";<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>