<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: 'Arial'; COLOR: #000000">
<DIV>Bom dia Daniel. obrigado pelo esclarecimento, mas veja, abro o arquivo da
forma que mencionou</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> </DIV>
<DIV>os tres argumentos, file_handle OUT</DIV>
<DIV>o arquivo </DIV>
<DIV>e a msg de erro “, que coloco uma mensagem particular para localizar mais
facilmente o erro e o erro propriamente dito $!</DIV>
<DIV> </DIV>
<DIV>A diferença é que mando abrir para escrita no proprio arquivo “>Arquivo”
Sempre fiz desta maneira, até mesmo por ver em documentaçao, vou fazer como
falou. Posso estar errado !</DIV>
<DIV> </DIV>
<DIV>Obrigado</DIV>
<DIV> </DIV>
<DIV>Também em todos os codigos utilizo</DIV>
<DIV> </DIV>
<DIV>#!/usr/bin/perl –w</DIV>
<DIV> </DIV>
<DIV>use strict;</DIV>
<DIV>use warnings;</DIV>
<DIV>no warnings 'uninitialized';</DIV>
<DIV>use CGI qw(:standard);</DIV>
<DIV>use CGI::Carp qw(fatalsToBrowser warningsToBrowser);</DIV>
<DIV> </DIV>
<DIV>Lembrando que este foi o trecho do codigo que esta o erro, as declarações
my estão em trechos anteriores ao erro mencionado, por este motivo não aparecem.
Tenho o costume de declarar as variaveis ANTES de utiliza-las, justamente para
nao ficar procurando depois. (Epoca do C)</DIV>
<DIV> </DIV>
<DIV>tipo my ($var1, $var2, $var3...) no bloco em que irei utilizalas. SEMPRE
tabalho com errorlog sem msg alguma, ou terei problemas depois que não
consiguirei achar e resolver.</DIV>
<DIV> </DIV>
<DIV>Mesmo assim, Obrigado <IMG class="wlEmoticon wlEmoticon-smile"
style="BORDER-TOP-STYLE: none; BORDER-BOTTOM-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none"
alt=Alegre src="cid:4399690C41D349BB96DFCDB9A7BE9C8A@RicardoPC"></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=daniel.oliveira.mantovani@gmail.com
href="mailto:daniel.oliveira.mantovani@gmail.com">Daniel de Oliveira
Mantovani</A> </DIV>
<DIV><B>Sent:</B> Monday, November 16, 2015 2:15 PM</DIV>
<DIV><B>To:</B> <A title=saopaulo-pm@mail.pm.org
href="mailto:saopaulo-pm@mail.pm.org">saopaulo-pm@mail.pm.org</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>Bom dia Ricardo,
<DIV> </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>
<DIV> </DIV>
<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="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">
<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" target=_blank
value="+5513988265700">(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> </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> </DIV>
<DIV dir=ltr>-dom</DIV>
<DIV dir=ltr> </DIV>
<DIV dir=ltr>--</DIV>
<DIV dir=ltr> </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>
<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>