<div dir="ltr">Bom dia Ricardo,<div><br></div><div>Esse seu problema específico é o menor dos seus problemas. O seu código está dizendo aos script-kiddies a seguinte mensagem: "Por favor, use o meu servidor como bot.".<br><br>Você sempre, sempre deverá usar open com três argumentos,</div><div>open my $file_handle, '>', 'arquivo' or die $!; <br>Se você não tiver um motivo específico, usa uma variável com o nome do fila handle.<br><br>(Lucas Moraes)++<br>Ricardo, sempre, sempre use as pragmas strict e warnings. Essas pragmas foram feitas justamente para nos ajudar a não cometer erros como o que você cometeu.<br><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">2015-11-16 9:30 GMT-02:00 Ricardo Stock <span dir="ltr"><<a href="mailto:ricardostock@bol.com.br" target="_blank">ricardostock@bol.com.br</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 dir="ltr">
<div style="FONT-SIZE:10pt;FONT-FAMILY:'Arial';COLOR:#000000">
<div>    Bom dia aos amigos.</div>
<div> </div>
<div>    Galera estou com uma dificuldade ao salvar uma imagem. 
No código que estou fazendo, ao se realizar o cadastro, é automaticamente salvo 
uma imagem com o código de barras do mesmo, afim de não se criar uma imagem a 
ada vez que se visualiza o item.</div>
<div> </div>
<div>    Porem, a imagem não esta sendo salva corrtamente, pois a 
mesma não abre, indo apenas o nome do arquivo com 0kb.</div>
<div> </div>
<div>    Este é o trecho do código que estou utilizando</div>
<div> </div>
<div>                
#Crio a imagem utilizando o modulo EAN13</div>
<div>                
my $img = GD::Barcode::EAN13->new($barras);</div>
<div>                
</div>
<div>                
#Adiciono a extenção, se utilizar o metodo $mg->plot->png da erro de 
execução, não de compilação </div>
<div>                
$img= $img . ".png";</div>
<div> </div>
<div>                
#Abro o diretorio para excrita, o mesmo é criado antes</div>
<div>                
open OUT, ">$dir/$id_produto/$img" or die "Erro ao salvar a imagem com o 
codigo de barras $!";</div>
<div>                
binmode OUT;</div>
<div>                
print OUT $img || die $!;</div>
<div>                
close OUT;</div>
<div> </div>
<div> </div>
<div>               
Acontece que :</div>
<div> </div>
<div>                
Crio o diretorio para armazenar a imagem, sem problemas,</div>
<div>                
Armazeno a imagem padrão sem problemas.</div>
<div>                
Ao salvar o imagem com o código de barras, o cadastro é feito sem problemas ou 
erros, mas a imagm nao é salva corretamente. </div>
<div> </div>
<div>    Quero que no momento do cadastro a imagem com o código 
de barras seja salva afim de se evitar que a mesma seja criada a cada vez que o 
produto seja visto. Alguma ajuda.</div>
<div> </div>
<div>    Obrigado     </div><span class="HOEnZb"><font color="#888888">
<div> </div>
<div> </div>
<div style="FONT-SIZE:10pt;FONT-FAMILY:'Arial';COLOR:#000000">Ricardo 
Stock<br><a href="mailto:ricardo@stocksistemas.com.br" target="_blank">ricardo@stocksistemas.com.br</a><br><a href="http://www.stockssitemas.com.br" target="_blank">www.stockssitemas.com.br</a> - Tel/Whatsapp 
<a href="tel:%2813%2998826-5700" value="+5513988265700" target="_blank">(13)98826-5700</a></div></font></span></div></div></div>
<br>=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" rel="noreferrer" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
 L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><div dir="ltr">Thank you very much!</div><div dir="ltr"><br></div><div dir="ltr">-dom</div><div dir="ltr"><br></div><div dir="ltr">--</div><div dir="ltr"><br></div><div dir="ltr">Daniel de Oliveira Mantovani</div><div dir="ltr">Business Analytic Specialist</div><div dir="ltr">Perl Evangelist /Astrophysics hobbyist. </div><div dir="ltr">+55 11 9 8538-9897</div><div dir="ltr">XOXO</div></div></div></div></div></div>
</div>