[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