<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: 'Arial'; COLOR: #000000">
<DIV>Valeu Lucas, o erro estava que estava colocando o metodo –>plot no local 
errado.</DIV>
<DIV> </DIV>
<DIV>Obrigado.</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 
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A 
title=lucastiagodemoraes@gmail.com 
href="mailto:lucastiagodemoraes@gmail.com">Lucas Moraes</A> </DIV>
<DIV><B>Sent:</B> Monday, November 16, 2015 9:45 AM</DIV>
<DIV><B>To:</B> <A title=saopaulo-pm@mail.pm.org 
href="mailto:saopaulo-pm@mail.pm.org">saopaulo-pm</A> </DIV>
<DIV><B>Subject:</B> Re: [SP-pm] Salvar Imagem GD</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV 
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV dir=ltr>Porque concatenar extensão aqui: 
<DIV><SPAN style="FONT-SIZE: 13px; FONT-FAMILY: arial; COLOR: rgb(0,0,0)">$img= 
$img . ".png";</SPAN><BR></DIV>
<DIV><SPAN 
style="FONT-SIZE: 13px; FONT-FAMILY: arial; COLOR: rgb(0,0,0)"><BR></SPAN></DIV>
<DIV><SPAN style="FONT-SIZE: 13px; FONT-FAMILY: arial; COLOR: rgb(0,0,0)">O 
Renato esta certo, no próprio cpan tem isso:</SPAN></DIV>
<DIV><CODE 
style="OVERFLOW: visible !important; FONT-SIZE: 12px; BORDER-TOP: 0px; HEIGHT: auto !important; FONT-FAMILY: inherit !important; BORDER-RIGHT: 0px; WIDTH: auto !important; VERTICAL-ALIGN: baseline !important; BACKGROUND-IMAGE: none; WHITE-SPACE: pre; BORDER-BOTTOM: 0px; FLOAT: none !important; COLOR: black !important; OUTLINE-WIDTH: 0px !important; PADDING-BOTTOM: 0px !important; PADDING-TOP: 0px !important; OUTLINE-STYLE: none !important; PADDING-LEFT: 0px !important; MARGIN: 0px; MIN-HEIGHT: auto !important; BORDER-LEFT: 0px; OUTLINE-COLOR: invert !important; PADDING-RIGHT: 0px !important; BACKGROUND-COLOR: rgb(245,245,245); border-radius: 0px">GD::Barcode::EAN13->new(</CODE><CODE 
style="OVERFLOW: visible !important; FONT-SIZE: 12px; BORDER-TOP: 0px; HEIGHT: auto !important; FONT-FAMILY: inherit !important; BORDER-RIGHT: 0px; WIDTH: auto !important; VERTICAL-ALIGN: baseline !important; BACKGROUND-IMAGE: none; WHITE-SPACE: pre; BORDER-BOTTOM: 0px; FLOAT: none !important; COLOR: blue !important; OUTLINE-WIDTH: 0px !important; PADDING-BOTTOM: 0px !important; PADDING-TOP: 0px !important; OUTLINE-STYLE: none !important; PADDING-LEFT: 0px !important; MARGIN: 0px; MIN-HEIGHT: auto !important; BORDER-LEFT: 0px; OUTLINE-COLOR: invert !important; PADDING-RIGHT: 0px !important; BACKGROUND-COLOR: rgb(245,245,245); border-radius: 0px">'123456789012'</CODE><CODE 
style="OVERFLOW: visible !important; FONT-SIZE: 12px; BORDER-TOP: 0px; HEIGHT: auto !important; FONT-FAMILY: inherit !important; BORDER-RIGHT: 0px; WIDTH: auto !important; VERTICAL-ALIGN: baseline !important; BACKGROUND-IMAGE: none; WHITE-SPACE: pre; BORDER-BOTTOM: 0px; FLOAT: none !important; COLOR: black !important; OUTLINE-WIDTH: 0px !important; PADDING-BOTTOM: 0px !important; PADDING-TOP: 0px !important; OUTLINE-STYLE: none !important; PADDING-LEFT: 0px !important; MARGIN: 0px; MIN-HEIGHT: auto !important; BORDER-LEFT: 0px; OUTLINE-COLOR: invert !important; PADDING-RIGHT: 0px !important; BACKGROUND-COLOR: rgb(245,245,245); border-radius: 0px">)->plot->png;</CODE><SPAN 
style="FONT-SIZE: 13px; FONT-FAMILY: arial; COLOR: rgb(0,0,0)"><BR></SPAN></DIV>
<DIV><CODE 
style="OVERFLOW: visible !important; FONT-SIZE: 12px; BORDER-TOP: 0px; HEIGHT: auto !important; FONT-FAMILY: inherit !important; BORDER-RIGHT: 0px; WIDTH: auto !important; VERTICAL-ALIGN: baseline !important; BACKGROUND-IMAGE: none; WHITE-SPACE: pre; BORDER-BOTTOM: 0px; FLOAT: none !important; COLOR: black !important; OUTLINE-WIDTH: 0px !important; PADDING-BOTTOM: 0px !important; PADDING-TOP: 0px !important; OUTLINE-STYLE: none !important; PADDING-LEFT: 0px !important; MARGIN: 0px; MIN-HEIGHT: auto !important; BORDER-LEFT: 0px; OUTLINE-COLOR: invert !important; PADDING-RIGHT: 0px !important; BACKGROUND-COLOR: rgb(245,245,245); border-radius: 0px"><BR></CODE></DIV>
<DIV><CODE 
style="OVERFLOW: visible !important; FONT-SIZE: 12px; BORDER-TOP: 0px; HEIGHT: auto !important; FONT-FAMILY: inherit !important; BORDER-RIGHT: 0px; WIDTH: auto !important; VERTICAL-ALIGN: baseline !important; BACKGROUND-IMAGE: none; WHITE-SPACE: pre; BORDER-BOTTOM: 0px; FLOAT: none !important; COLOR: black !important; OUTLINE-WIDTH: 0px !important; PADDING-BOTTOM: 0px !important; PADDING-TOP: 0px !important; OUTLINE-STYLE: none !important; PADDING-LEFT: 0px !important; MARGIN: 0px; MIN-HEIGHT: auto !important; BORDER-LEFT: 0px; OUTLINE-COLOR: invert !important; PADDING-RIGHT: 0px !important; BACKGROUND-COLOR: rgb(245,245,245); border-radius: 0px">Tente 
isso:</CODE></DIV>
<DIV><CODE 
style="OVERFLOW: visible !important; FONT-SIZE: 12px; BORDER-TOP: 0px; HEIGHT: auto !important; FONT-FAMILY: inherit !important; BORDER-RIGHT: 0px; WIDTH: auto !important; VERTICAL-ALIGN: baseline !important; BACKGROUND-IMAGE: none; WHITE-SPACE: pre; BORDER-BOTTOM: 0px; FLOAT: none !important; COLOR: black !important; OUTLINE-WIDTH: 0px !important; PADDING-BOTTOM: 0px !important; PADDING-TOP: 0px !important; OUTLINE-STYLE: none !important; PADDING-LEFT: 0px !important; MARGIN: 0px; MIN-HEIGHT: auto !important; BORDER-LEFT: 0px; OUTLINE-COLOR: invert !important; PADDING-RIGHT: 0px !important; BACKGROUND-COLOR: rgb(245,245,245); border-radius: 0px"><BR></CODE></DIV>
<DIV><CODE 
style="OVERFLOW: visible !important; FONT-SIZE: 12px; BORDER-TOP: 0px; HEIGHT: auto !important; FONT-FAMILY: inherit !important; BORDER-RIGHT: 0px; WIDTH: auto !important; VERTICAL-ALIGN: baseline !important; BACKGROUND-IMAGE: none; WHITE-SPACE: pre; BORDER-BOTTOM: 0px; FLOAT: none !important; COLOR: black !important; OUTLINE-WIDTH: 0px !important; PADDING-BOTTOM: 0px !important; PADDING-TOP: 0px !important; OUTLINE-STYLE: none !important; PADDING-LEFT: 0px !important; MARGIN: 0px; MIN-HEIGHT: auto !important; BORDER-LEFT: 0px; OUTLINE-COLOR: invert !important; PADDING-RIGHT: 0px !important; BACKGROUND-COLOR: rgb(245,245,245); border-radius: 0px">my 
$img = </CODE><CODE 
style="OVERFLOW: visible !important; FONT-SIZE: 12px; BORDER-TOP: 0px; HEIGHT: auto !important; FONT-FAMILY: inherit !important; BORDER-RIGHT: 0px; WIDTH: auto !important; VERTICAL-ALIGN: baseline !important; BACKGROUND-IMAGE: none; WHITE-SPACE: pre; BORDER-BOTTOM: 0px; FLOAT: none !important; COLOR: black !important; OUTLINE-WIDTH: 0px !important; PADDING-BOTTOM: 0px !important; PADDING-TOP: 0px !important; OUTLINE-STYLE: none !important; PADDING-LEFT: 0px !important; MARGIN: 0px; MIN-HEIGHT: auto !important; BORDER-LEFT: 0px; OUTLINE-COLOR: invert !important; PADDING-RIGHT: 0px !important; BACKGROUND-COLOR: rgb(245,245,245); border-radius: 0px">GD::Barcode::EAN13->new(</CODE><SPAN 
style="FONT-SIZE: 13px; FONT-FAMILY: arial; COLOR: rgb(0,0,0)">$</SPAN><SPAN 
style="FONT-SIZE: 13px; FONT-FAMILY: arial; COLOR: rgb(0,0,0)">barras</SPAN><CODE 
style="OVERFLOW: visible !important; FONT-SIZE: 12px; BORDER-TOP: 0px; HEIGHT: auto !important; FONT-FAMILY: inherit !important; BORDER-RIGHT: 0px; WIDTH: auto !important; VERTICAL-ALIGN: baseline !important; BACKGROUND-IMAGE: none; WHITE-SPACE: pre; BORDER-BOTTOM: 0px; FLOAT: none !important; COLOR: black !important; OUTLINE-WIDTH: 0px !important; PADDING-BOTTOM: 0px !important; PADDING-TOP: 0px !important; OUTLINE-STYLE: none !important; PADDING-LEFT: 0px !important; MARGIN: 0px; MIN-HEIGHT: auto !important; BORDER-LEFT: 0px; OUTLINE-COLOR: invert !important; PADDING-RIGHT: 0px !important; BACKGROUND-COLOR: rgb(245,245,245); border-radius: 0px">)->plot->png;</CODE></DIV>
<DIV><CODE 
style="OVERFLOW: visible !important; FONT-SIZE: 12px; BORDER-TOP: 0px; HEIGHT: auto !important; FONT-FAMILY: inherit !important; BORDER-RIGHT: 0px; WIDTH: auto !important; VERTICAL-ALIGN: baseline !important; BACKGROUND-IMAGE: none; WHITE-SPACE: pre; BORDER-BOTTOM: 0px; FLOAT: none !important; COLOR: black !important; OUTLINE-WIDTH: 0px !important; PADDING-BOTTOM: 0px !important; PADDING-TOP: 0px !important; OUTLINE-STYLE: none !important; PADDING-LEFT: 0px !important; MARGIN: 0px; MIN-HEIGHT: auto !important; BORDER-LEFT: 0px; OUTLINE-COLOR: invert !important; PADDING-RIGHT: 0px !important; BACKGROUND-COLOR: rgb(245,245,245); border-radius: 0px">
<DIV 
style="FONT-SIZE: 13px; FONT-FAMILY: arial; 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-SIZE: 13px; FONT-FAMILY: arial; WHITE-SPACE: normal; BACKGROUND-COLOR: rgb(255,255,255)">binmode 
OUT;</DIV>
<DIV 
style="FONT-SIZE: 13px; FONT-FAMILY: arial; WHITE-SPACE: normal; BACKGROUND-COLOR: rgb(255,255,255)">print 
OUT $img || die $!;</DIV>
<DIV 
style="FONT-SIZE: 13px; FONT-FAMILY: arial; WHITE-SPACE: normal; BACKGROUND-COLOR: rgb(255,255,255)">close 
OUT;</DIV></CODE></DIV></DIV>
<DIV class=gmail_extra>
<DIV> </DIV>
<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="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">
  <DIV dir=ltr>Falta você chamar o plot->png ! 
  <DIV> </DIV>
  <DIV>sem ele, você não vai gerar saida nenhuma.</DIV></DIV>
  <DIV class=gmail_extra>
  <DIV> </DIV>
  <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="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">
    <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" target=_blank 
    value="+5513988265700">(13)98826-5700</A></DIV></FONT></SPAN></DIV></DIV></DIV>
    <DIV> </DIV></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> </DIV>-- <BR>
  <DIV>
  <DIV><SPAN 
  style="FONT-SIZE: x-small; COLOR: rgb(51,51,51)">Saravá,</SPAN></DIV>
  <DIV><SPAN style="FONT-SIZE: x-small; COLOR: rgb(51,51,51)">Renato 
  CRON</SPAN></DIV>
  <DIV>
  <DIV style="TEXT-ALIGN: right"><FONT color=#333333 size=1><A 
  href="http://www.renatocron.com/blog/" 
  target=_blank>http://www.renatocron.com/blog/</A></FONT></DIV></DIV>
  <DIV style="TEXT-ALIGN: right"><FONT color=#333333 size=1><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>
<DIV> </DIV></DIV>
<P>
<HR>
=begin disclaimer<BR>   Sao Paulo Perl Mongers: 
http://sao-paulo.pm.org/<BR>SaoPaulo-pm mailing list: 
SaoPaulo-pm@pm.org<BR>L<http://mail.pm.org/mailman/listinfo/saopaulo-pm><BR>=end 
disclaimer<BR></DIV></DIV></DIV></BODY></HTML>