<div dir="ltr">Porque concatenar extensão aqui:<div><span style="color:rgb(0,0,0);font-family:Arial;font-size:13.3333px">$img= $img . ".png";</span><br></div><div><span style="color:rgb(0,0,0);font-family:Arial;font-size:13.3333px"><br></span></div><div><span style="color:rgb(0,0,0);font-family:Arial;font-size:13.3333px">O Renato esta certo, no próprio cpan tem isso:</span></div><div><code class="" style="font-size:12px;white-space:pre;font-family:inherit!important;padding:0px!important;color:black!important;border-radius:0px!important;border:0px!important;float:none!important;height:auto!important;margin:0px!important;outline:0px!important;overflow:visible!important;vertical-align:baseline!important;width:auto!important;min-height:auto!important;background-image:none!important;background-color:rgb(245,245,245);background-repeat:initial!important">GD::Barcode::EAN13->new(</code><code class="" style="font-size:12px;white-space:pre;font-family:inherit!important;padding:0px!important;color:blue!important;border-radius:0px!important;border:0px!important;float:none!important;height:auto!important;margin:0px!important;outline:0px!important;overflow:visible!important;vertical-align:baseline!important;width:auto!important;min-height:auto!important;background-image:none!important;background-color:rgb(245,245,245);background-repeat:initial!important">'123456789012'</code><code class="" style="font-size:12px;white-space:pre;font-family:inherit!important;padding:0px!important;color:black!important;border-radius:0px!important;border:0px!important;float:none!important;height:auto!important;margin:0px!important;outline:0px!important;overflow:visible!important;vertical-align:baseline!important;width:auto!important;min-height:auto!important;background-image:none!important;background-color:rgb(245,245,245);background-repeat:initial!important">)->plot->png;</code><span style="color:rgb(0,0,0);font-family:Arial;font-size:13.3333px"><br></span></div><div><code class="" style="font-size:12px;white-space:pre;font-family:inherit!important;padding:0px!important;color:black!important;border-radius:0px!important;border:0px!important;float:none!important;height:auto!important;margin:0px!important;outline:0px!important;overflow:visible!important;vertical-align:baseline!important;width:auto!important;min-height:auto!important;background-image:none!important;background-color:rgb(245,245,245);background-repeat:initial!important"><br></code></div><div><code class="" style="font-size:12px;white-space:pre;font-family:inherit!important;padding:0px!important;color:black!important;border-radius:0px!important;border:0px!important;float:none!important;height:auto!important;margin:0px!important;outline:0px!important;overflow:visible!important;vertical-align:baseline!important;width:auto!important;min-height:auto!important;background-image:none!important;background-color:rgb(245,245,245);background-repeat:initial!important">Tente isso:</code></div><div><code class="" style="font-size:12px;white-space:pre;font-family:inherit!important;padding:0px!important;color:black!important;border-radius:0px!important;border:0px!important;float:none!important;height:auto!important;margin:0px!important;outline:0px!important;overflow:visible!important;vertical-align:baseline!important;width:auto!important;min-height:auto!important;background-image:none!important;background-color:rgb(245,245,245);background-repeat:initial!important"><br></code></div><div><code class="" style="font-size:12px;white-space:pre;font-family:inherit!important;padding:0px!important;color:black!important;border-radius:0px!important;border:0px!important;float:none!important;height:auto!important;margin:0px!important;outline:0px!important;overflow:visible!important;vertical-align:baseline!important;width:auto!important;min-height:auto!important;background-image:none!important;background-color:rgb(245,245,245);background-repeat:initial!important">my $img = </code><code class="" style="font-size:12px;white-space:pre;font-family:inherit!important;padding:0px!important;color:black!important;border-radius:0px!important;border:0px!important;float:none!important;height:auto!important;margin:0px!important;outline:0px!important;overflow:visible!important;vertical-align:baseline!important;width:auto!important;min-height:auto!important;background-image:none!important;background-color:rgb(245,245,245);background-repeat:initial!important">GD::Barcode::EAN13->new(</code><span style="color:rgb(0,0,0);font-family:Arial;font-size:13.3333px">$</span><span style="color:rgb(0,0,0);font-family:Arial;font-size:13.3333px">barras</span><code class="" style="font-size:12px;white-space:pre;font-family:inherit!important;padding:0px!important;color:black!important;border-radius:0px!important;border:0px!important;float:none!important;height:auto!important;margin:0px!important;outline:0px!important;overflow:visible!important;vertical-align:baseline!important;width:auto!important;min-height:auto!important;background-image:none!important;background-color:rgb(245,245,245);background-repeat:initial!important">)->plot->png;</code></div><div><code class="" style="font-size:12px;white-space:pre;font-family:inherit!important;padding:0px!important;color:black!important;border-radius:0px!important;border:0px!important;float:none!important;height:auto!important;margin:0px!important;outline:0px!important;overflow:visible!important;vertical-align:baseline!important;width:auto!important;min-height:auto!important;background-image:none!important;background-color:rgb(245,245,245);background-repeat:initial!important"><div style="font-family:Arial;font-size:13.3333px;white-space:normal;background-color:rgb(255,255,255)">open OUT, ">$dir/$id_produto/$img" or die "Erro ao salvar a imagem com o codigo de barras $!";</div><div style="font-family:Arial;font-size:13.3333px;white-space:normal;background-color:rgb(255,255,255)">binmode OUT;</div><div style="font-family:Arial;font-size:13.3333px;white-space:normal;background-color:rgb(255,255,255)">print OUT $img || die $!;</div><div style="font-family:Arial;font-size:13.3333px;white-space:normal;background-color:rgb(255,255,255)">close OUT;</div></code></div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 16 de novembro de 2015 09:36, Renato Santos <span dir="ltr"><<a href="mailto:renato.cron@gmail.com" target="_blank">renato.cron@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Falta você chamar o plot->png !<div><br></div><div>sem ele, você não vai gerar saida nenhuma.</div></div><div class="gmail_extra"><br><div class="gmail_quote"><div><div class="h5">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></div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5">
<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><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></div></div>=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" target="_blank">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><span class="HOEnZb"><font color="#888888"><br><br clear="all"><div><br></div>-- <br><div><div><span style="color:rgb(51,51,51);font-size:x-small">Saravá,</span></div><div><span style="color:rgb(51,51,51);font-size:x-small">Renato CRON</span></div><div><div style="text-align:right"><font size="1" color="#333333"><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a></font></div></div><div style="text-align:right"><font size="1" color="#333333"><a href="http://twitter.com/#!/renato_cron" target="_blank">@renato_cron</a></font></div></div>
</font></span></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></div>