[SP-pm] Salvar Imagem GD

[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 <ricardostock at 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
> ricardo at stocksistemas.com.br
> www.stockssitemas.com.br - Tel/Whatsapp (13)98826-5700
>
> *From:* Daniel de Oliveira Mantovani <daniel.oliveira.mantovani at gmail.com>
> *Sent:* Monday, November 16, 2015 2:15 PM
> *To:* saopaulo-pm at 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 at 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 at 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 at 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 at 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 at 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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20151118/fca1c356/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: wlEmoticon-smile[1].png
Type: image/png
Size: 1046 bytes
Desc: not available
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20151118/fca1c356/attachment-0001.png>