[SP-pm] Salvar Imagem GD
Daniel de Oliveira Mantovani
daniel.oliveira.mantovani at gmail.com
Mon Nov 16 08:15:21 PST 2015
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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20151116/f414bc31/attachment.html>
More information about the SaoPaulo-pm
mailing list