<HTML><HEAD></HEAD>
<BODY 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>
<DIV> </DIV>
<DIV> </DIV>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: 'Arial'; COLOR: #000000">Ricardo
Stock<BR>ricardo@stocksistemas.com.br<BR>www.stockssitemas.com.br - Tel/Whatsapp
(13)98826-5700</DIV></DIV></DIV></BODY></HTML>