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 <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
>
>
=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
