[SP-pm] Salvar Imagem GD
Ricardo Stock
ricardostock at bol.com.br
Wed Nov 18 03:42:09 PST 2015
Bom dia Daniel. obrigado pelo esclarecimento, mas veja, abro o arquivo da forma que mencionou
#Abro o diretorio para excrita, o mesmo é criado antes
open OUT, ">$dir/$id_produto/$img" or die "Erro ao salvar a imagem com o codigo de barras $!";
os tres argumentos, file_handle OUT
o arquivo
e a msg de erro “, que coloco uma mensagem particular para localizar mais facilmente o erro e o erro propriamente dito $!
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 !
Obrigado
Também em todos os codigos utilizo
#!/usr/bin/perl –w
use strict;
use warnings;
no warnings 'uninitialized';
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
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)
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.
Mesmo assim, Obrigado
Ricardo Stock
ricardo em stocksistemas.com.br
www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700
From: Daniel de Oliveira Mantovani
Sent: Monday, November 16, 2015 2:15 PM
To: saopaulo-pm em mail.pm.org
Subject: Re: [SP-pm] Salvar Imagem GD
Bom dia Ricardo,
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.".
Você sempre, sempre deverá usar open com três argumentos,
open my $file_handle, '>', 'arquivo' or die $!;
Se você não tiver um motivo específico, usa uma variável com o nome do fila handle.
(Lucas Moraes)++
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.
2015-11-16 9:30 GMT-02:00 Ricardo Stock <ricardostock em bol.com.br>:
Bom dia aos amigos.
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.
Porem, a imagem não esta sendo salva corrtamente, pois a mesma não abre, indo apenas o nome do arquivo com 0kb.
Este é o trecho do código que estou utilizando
#Crio a imagem utilizando o modulo EAN13
my $img = GD::Barcode::EAN13->new($barras);
#Adiciono a extenção, se utilizar o metodo $mg->plot->png da erro de execução, não de compilação
$img= $img . ".png";
#Abro o diretorio para excrita, o mesmo é criado antes
open OUT, ">$dir/$id_produto/$img" or die "Erro ao salvar a imagem com o codigo de barras $!";
binmode OUT;
print OUT $img || die $!;
close OUT;
Acontece que :
Crio o diretorio para armazenar a imagem, sem problemas,
Armazeno a imagem padrão sem problemas.
Ao salvar o imagem com o código de barras, o cadastro é feito sem problemas ou erros, mas a imagm nao é salva corretamente.
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.
Obrigado
Ricardo Stock
ricardo em stocksistemas.com.br
www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
--
Thank you very much!
-dom
--
Daniel de Oliveira Mantovani
Business Analytic Specialist
Perl Evangelist /Astrophysics hobbyist.
+55 11 9 8538-9897
XOXO
--------------------------------------------------------------------------------
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
-------------- Pr�xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20151118/c1798f1e/attachment.html>
-------------- Pr�xima Parte ----------
Um anexo n�o-texto foi limpo...
Nome: n�o dispon�vel
Tipo: image/png
Tamanho: 1046 bytes
Descri��o: n�o dispon�vel
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20151118/c1798f1e/attachment.png>
More information about the SaoPaulo-pm
mailing list