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 <http://twitter.com/#!/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
