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