[Cascavel-pm] codigo de barras

[Gabriel Vieira]

É erro no código sim!

É necessário que você passe 12 ou 13 dígitos para a criação do novo
objeto. Como isso não é feito o objeto não é criado. Em seguida vc
tenta usar o método plot em um objeto que não existe, ou melhor, em
uma variável vazia.

--------------------8<--------------------
use GD::Barcode::EAN13;
my $oGdBar = GD::Barcode::EAN13->new('1234567890123');
die $GD::Barcode::EAN13::errStr unless($oGdBar);
print $oGdBar->plot->png;
-------------------->8--------------------
Imprime o código de barras.

--------------------8<--------------------
use GD::Barcode::EAN13;
binmode(STDOUT);
my $oGdBar = GD::Barcode::EAN13->new('1234567890');
die $GD::Barcode::EAN13::errStr unless($oGdBar);
print $oGdBar->plot->png;
-------------------->8--------------------
Imprime o erro que levou à não criação do código de barras - no caso,
menos de 12 caracters.


Abraços,

2009/2/3 Ricardo Stock <ricardostock em bol.com.br>:
> Ola, Russo, agradeço pela ajuda, mas infelizmente o erro não está no código.
> Ao executar o mesmo excuta, mas não gera a imagem. Vendo o log do apache, a
> mensagem de erro que tenho que que não pode invocar/reconhece o metodo plot.
>
> // log
> Can't call method "plot" on an undefined value at
>
> Vale lembrar que meu servidor é Win2003 Server. bom vou continuar estudando,
> caso alguem tenha alguma dica ou algo parecido, agradeço.
>
> Ah, vale lembrar... rodando o exemplo do CPAN, deu o mesmo erro. Bom
> agradeço a qualquer ajuda.
>
>
>
>
>
> ----- Original Message -----
> From: Alexei Znamensky
> To: Cascavel Perl Mongers
> Sent: Tuesday, February 03, 2009 12:49 AM
> Subject: Re: [Cascavel-pm] codigo de barras
> Ricardo,
>
> Presumindo que você copiou e colou seu código no email:
>
> new('$produto')
>
> aspas simples? com aspas simples você usou a string literal $produto, ao
> invés de usar o valor da variável escalar produto.
>
> Se no email tá errado, mas no código está certo, aí eu já não tenho certeza.
> O que talvez esteja faltando é um check, logo após construir o objeto, as in
>
> with Error Check
>
>   my $oGdBar = GD::Barcode::EAN13->new('123456789');
>   die $GD::Barcode::EAN13::errStr unless($oGdBar);      #Invalid Length
>
> Tirado diretamente da página do módulo no CPAN.
>
> Read The Freaking Manual? :-P
>
> []s,
> Russo
>
>
> 2009/2/2 Ricardo Stock <ricardostock em bol.com.br>
>>
>>
>> Ola a todos da Lista.
>>
>> Estou tentando gerar códigos de barras padrão EAN13 automaticamente, porém
>> o codigo não me da erros, mas também não gera a imagem. Ao "printar" na
>> tela, fica apenas o espaço reservado a imagem, mas nada da imagem de codigo
>> de barras...
>>
>> no log, me informa que o metodo plot não é aceito... alguma sugestão.
>>
>> segue treho do código.
>>
>>
>> use strict;
>> use warnings;
>> use GD::Barcode::EAN13;
>> my $barra=GD::Barcode::EAN13->new('$produto'); #CAMPO NUMERO OU TEXTO
>> binmode(STDOUT);
>> print "Content-Type: image/png\n\n";
>> print $barra->plot->png;
>>
>>
>> Ricardo Stock
>> ricardostock em bol.com.br
>> _______________________________________________
>> Cascavel-pm mailing list
>> Cascavel-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
>
> --
> Alexei Znamensky [russoz_gmail_com] [russoz.wordpress.com]
> [www.flickr.com/photos/alexeiz]
> "Though we live in trying times, we're the ones who have to try"
>
> ________________________________
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Gabriel Vieira