Ricardo,<br><br>Presumindo que você copiou e colou seu código no email:<br><br><font face="Verdana" size="2">new('$produto')<br><br>aspas simples? com aspas simples você usou a string literal $produto, ao invés de usar o valor da variável escalar produto.<br>
<br>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</font><p><i>with Error Check</i></p>
<pre> my $oGdBar = GD::Barcode::EAN13->new('123456789');<br> die $GD::Barcode::EAN13::errStr unless($oGdBar); #Invalid Length</pre><font face="Verdana" size="2">Tirado diretamente da página do módulo no CPAN.<br>
<br>Read The Freaking Manual? :-P<br><br>[]s,<br>Russo<br><br></font><br><div class="gmail_quote">2009/2/2 Ricardo Stock <span dir="ltr"><<a href="mailto:ricardostock@bol.com.br">ricardostock@bol.com.br</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div bgcolor="#ffffff">
<div><font face="Verdana" size="2"> <br>Ola a todos da
Lista.</font></div>
<div><font face="Verdana" size="2"></font> </div>
<div><font face="Verdana" size="2">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...</font></div>
<div><font face="Verdana" size="2"></font> </div>
<div><font face="Verdana" size="2">no log, me informa que o metodo plot não é
aceito... alguma sugestão.</font></div>
<div><font face="Verdana" size="2"></font> </div>
<div><font face="Verdana" size="2">segue treho do código.</font></div>
<div><font face="Verdana" size="2"></font> </div>
<div><font face="Verdana" size="2"></font> </div>
<div><font face="Verdana" size="2">use strict;<br>use warnings;<br>use
GD::Barcode::EAN13;<br>my $barra=GD::Barcode::EAN13->new('$produto'); #CAMPO
NUMERO OU TEXTO<br>binmode(STDOUT);<br>print "Content-Type:
image/png\n\n";<br>print $barra->plot->png;</font></div>
<div><font face="Verdana" size="2"></font> </div><font color="#888888">
<div><font face="Verdana" size="2"></font> </div>
<div><font face="Verdana" size="2">Ricardo Stock<br><a href="mailto:ricardostock@bol.com.br" target="_blank">ricardostock@bol.com.br</a></font></div></font></div>
<br>_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Alexei Znamensky [russoz_gmail_com] [<a href="http://russoz.wordpress.com">russoz.wordpress.com</a>] [<a href="http://www.flickr.com/photos/alexeiz">www.flickr.com/photos/alexeiz</a>]<br>
"Though we live in trying times, we're the ones who have to try"<br>