subject:"Re\: \[SP\-pm\] Salvar Imagem GD"

Re: [SP-pm] Salvar Imagem GD

2015-11-18 Por tôpico Ricardo Stock

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
rica...@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...@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 <ricardost...@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
  rica...@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@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@pm.org
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer

Re: [SP-pm] Salvar Imagem GD

2015-11-18 Por tôpico Renato Santos

Sacanagem é perguntar a diferença entre UTF-8 vs utf8!

2015-11-18 10:05 GMT-02:00 Stanislaw Pusep <creakt...@gmail.com>:

> Sobre o open(): isso já foi pergunta de entrevista para programador Perl :)
> O jeito *menos polêmico* de se gravar coisas em um arquivo é:
>
> my $out;
> open($out, '>', $dir/$id_produto/$img") or die "Erro...";
> print $out $something;
> close($out);
>
> Concatenar '>' com o nome do arquivo tem corner cases interessantes. E
> manter separado tem algumas vantagens, como, por exemplo, especificar a
> codificação do arquivo texto:
>
> open($out, '>:encoding(UTF-8)', 'texto.txt') or die "Erro...";
>
> 2015-11-18 12:42 GMT+01:00 Ricardo Stock <ricardost...@bol.com.br>:
>
>> 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 [image: Alegre]
>>
>> Ricardo Stock
>> rica...@stocksistemas.com.br
>> www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700
>>
>> *From:* Daniel de Oliveira Mantovani
>> <daniel.oliveira.mantov...@gmail.com>
>> *Sent:* Monday, November 16, 2015 2:15 PM
>> *To:* saopaulo...@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 <ricardost...@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;
>>>

Re: [SP-pm] Salvar Imagem GD

2015-11-18 Por tôpico Daniel de Oliveira Mantovani

Então Ricardo,


 Você ainda não entendeu o problema. Você apenas está usando dois
argumentos, o jeito que você está fazendo é uma mensagem aos script kiddies.
Você não precisa colocar uma mensagem em partilhar junto ao $! para
localizar o erro com mais facilidade, pois o mesmo já te diz a linha do
ocorrido.



2015-11-18 9:42 GMT-02:00 Ricardo Stock <ricardost...@bol.com.br>:

> 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 [image: Alegre]
>
> Ricardo Stock
> rica...@stocksistemas.com.br
> www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700
>
> *From:* Daniel de Oliveira Mantovani <daniel.oliveira.mantov...@gmail.com>
> *Sent:* Monday, November 16, 2015 2:15 PM
> *To:* saopaulo...@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 <ricardost...@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
>> rica...@stocksistemas.com.br
>> www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700
>>
>> =begin disclaimer
>

Re: [SP-pm] Salvar Imagem GD

2015-11-18 Por tôpico Stanislaw Pusep

Sobre o open(): isso já foi pergunta de entrevista para programador Perl :)
O jeito *menos polêmico* de se gravar coisas em um arquivo é:

my $out;
open($out, '>', $dir/$id_produto/$img") or die "Erro...";
print $out $something;
close($out);

Concatenar '>' com o nome do arquivo tem corner cases interessantes. E
manter separado tem algumas vantagens, como, por exemplo, especificar a
codificação do arquivo texto:

open($out, '>:encoding(UTF-8)', 'texto.txt') or die "Erro...";

2015-11-18 12:42 GMT+01:00 Ricardo Stock <ricardost...@bol.com.br>:

> 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 [image: Alegre]
>
> Ricardo Stock
> rica...@stocksistemas.com.br
> www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700
>
> *From:* Daniel de Oliveira Mantovani <daniel.oliveira.mantov...@gmail.com>
> *Sent:* Monday, November 16, 2015 2:15 PM
> *To:* saopaulo...@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 <ricardost...@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.
>>

Re: [SP-pm] Salvar Imagem GD

2015-11-16 Por tôpico Daniel de Oliveira Mantovani

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 :

> 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
> rica...@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@pm.org
>  L
> =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@pm.org
 L
=end disclaimer

Re: [SP-pm] Salvar Imagem GD

2015-11-16 Por tôpico Ricardo Stock

Obrigado Renato, resolvi o erro. estava no metodo plot

Ricardo Stock
rica...@stocksistemas.com.br
www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700

From: Renato Santos 
Sent: Monday, November 16, 2015 9:36 AM
To: saopaulo...@mail.pm.org 
Subject: Re: [SP-pm] Salvar Imagem GD

Falta você chamar o plot->png ! 

sem ele, você não vai gerar saida nenhuma.

2015-11-16 9:30 GMT-02:00 Ricardo Stock <ricardost...@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
  rica...@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@pm.org
  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
  =end disclaimer

-- 

Saravá,
Renato CRON
http://www.renatocron.com/blog/
@renato_cron

=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer

Re: [SP-pm] Salvar Imagem GD

2015-11-16 Por tôpico Ricardo Stock

Valeu Lucas, o erro estava que estava colocando o metodo –>plot no local errado.

Obrigado.

Ricardo Stock
rica...@stocksistemas.com.br
www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700

From: Lucas Moraes 
Sent: Monday, November 16, 2015 9:45 AM
To: saopaulo-pm 
Subject: Re: [SP-pm] Salvar Imagem GD

Porque concatenar extensão aqui: 
$img= $img . ".png";



O Renato esta certo, no próprio cpan tem isso:
GD::Barcode::EAN13->new('123456789012')->plot->png;



Tente isso:


my $img = GD::Barcode::EAN13->new($barras)->plot->png;
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;

Em 16 de novembro de 2015 09:36, Renato Santos <renato.c...@gmail.com> escreveu:

  Falta você chamar o plot->png ! 

  sem ele, você não vai gerar saida nenhuma.

  2015-11-16 9:30 GMT-02:00 Ricardo Stock <ricardost...@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
rica...@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@pm.org
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer






  -- 

  Saravá,
  Renato CRON
  http://www.renatocron.com/blog/
  @renato_cron

  =begin disclaimer
 Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
  =end disclaimer






=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer

Re: [SP-pm] Salvar Imagem GD

2015-11-16 Por tôpico Renato Santos

Falta você chamar o plot->png !

sem ele, você não vai gerar saida nenhuma.

2015-11-16 9:30 GMT-02:00 Ricardo Stock :

> 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
> rica...@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@pm.org
>  L
> =end disclaimer
>
>


-- 
Saravá,
Renato CRON
http://www.renatocron.com/blog/
@renato_cron 
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] Salvar Imagem GD

2015-11-16 Por tôpico Lucas Moraes

Porque concatenar extensão aqui:
$img= $img . ".png";

O Renato esta certo, no próprio cpan tem isso:
GD::Barcode::EAN13->new('123456789012')->plot->png;

Tente isso:

my $img = GD::Barcode::EAN13->new($barras)->plot->png;
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;

Em 16 de novembro de 2015 09:36, Renato Santos 
escreveu:

> Falta você chamar o plot->png !
>
> sem ele, você não vai gerar saida nenhuma.
>
> 2015-11-16 9:30 GMT-02:00 Ricardo Stock :
>
>> 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
>> rica...@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@pm.org
>>  L
>> =end disclaimer
>>
>>
>
>
> --
> Saravá,
> Renato CRON
> http://www.renatocron.com/blog/
> @renato_cron 
>
> =begin disclaimer
>Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>  L
> =end disclaimer
>
>
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] Salvar Imagem GD

2015-11-16 Por tôpico Lucas Moraes

O erro na compilação não seria o nome errado da variável:
errado: $mg->plot->png
correto: $img->plot->png

Falou.

Em 16 de novembro de 2015 09:45, Lucas Moraes 
escreveu:

> Porque concatenar extensão aqui:
> $img= $img . ".png";
>
> O Renato esta certo, no próprio cpan tem isso:
> GD::Barcode::EAN13->new('123456789012')->plot->png;
>
> Tente isso:
>
> my $img = GD::Barcode::EAN13->new($barras)->plot->png;
> 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;
>
> Em 16 de novembro de 2015 09:36, Renato Santos 
> escreveu:
>
>> Falta você chamar o plot->png !
>>
>> sem ele, você não vai gerar saida nenhuma.
>>
>> 2015-11-16 9:30 GMT-02:00 Ricardo Stock :
>>
>>> 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
>>> rica...@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@pm.org
>>>  L
>>> =end disclaimer
>>>
>>>
>>
>>
>> --
>> Saravá,
>> Renato CRON
>> http://www.renatocron.com/blog/
>> @renato_cron 
>>
>> =begin disclaimer
>>Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
>>  L
>> =end disclaimer
>>
>>
>
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L
=end disclaimer

Re: [SP-pm] Salvar Imagem GD

Re: [SP-pm] Salvar Imagem GD

Re: [SP-pm] Salvar Imagem GD

Re: [SP-pm] Salvar Imagem GD

Re: [SP-pm] Salvar Imagem GD

Re: [SP-pm] Salvar Imagem GD

Re: [SP-pm] Salvar Imagem GD

Re: [SP-pm] Salvar Imagem GD

Re: [SP-pm] Salvar Imagem GD

Re: [SP-pm] Salvar Imagem GD

10 matches

Site Navigation

Mail list logo

Footer information