<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=utf-8">
<META content="MSHTML 6.00.2900.5512" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Verdana size=2>Obrigado a todos, vou reescrever o código e posto
novamente, caso de erros... irei ver onde estou errando, normalmente em coisas
pequenas que passam despercebidas :-)</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>mesmo assim obrigado</FONT></DIV>
<DIV> </DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=russoz@gmail.com href="mailto:russoz@gmail.com">Alexei Znamensky</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=cascavel-pm@pm.org
href="mailto:cascavel-pm@pm.org">Cascavel Perl Mongers</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, February 04, 2009 11:16
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Cascavel-pm] codigo de
barras</DIV>
<DIV><BR></DIV>thanks Gabriel, me poupou o trabalho, eu já ia RTFM :-P
;-)<BR><BR>
<DIV class=gmail_quote>2009/2/3 Gabriel Vieira <SPAN dir=ltr><<A
href="mailto:gabriel.vieira@gmail.com">gabriel.vieira@gmail.com</A>></SPAN><BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">É
erro no código sim!<BR><BR>É necessário que você passe 12 ou 13 dígitos para
a criação do novo<BR>objeto. Como isso não é feito o objeto não é criado. Em
seguida vc<BR>tenta usar o método plot em um objeto que não existe, ou
melhor, em<BR>uma variável
vazia.<BR><BR>--------------------8<--------------------<BR>use
GD::Barcode::EAN13;<BR>my $oGdBar =
GD::Barcode::EAN13->new('1234567890123');<BR>
<DIV class=Ih2E3d>die $GD::Barcode::EAN13::errStr
unless($oGdBar);<BR></DIV>print
$oGdBar->plot->png;<BR>-------------------->8--------------------<BR>Imprime
o código de
barras.<BR><BR>--------------------8<--------------------<BR>use
GD::Barcode::EAN13;<BR>binmode(STDOUT);<BR>my $oGdBar =
GD::Barcode::EAN13->new('1234567890');<BR>
<DIV class=Ih2E3d>die $GD::Barcode::EAN13::errStr
unless($oGdBar);<BR></DIV>print
$oGdBar->plot->png;<BR>-------------------->8--------------------<BR>Imprime
o erro que levou à não criação do código de barras - no caso,<BR>menos de 12
caracters.<BR><BR><BR>Abraços,<BR><BR>2009/2/3 Ricardo Stock <<A
href="mailto:ricardostock@bol.com.br">ricardostock@bol.com.br</A>>:<BR>
<DIV>
<DIV></DIV>
<DIV class=Wj3C7c>> Ola, Russo, agradeço pela ajuda, mas infelizmente o
erro não está no código.<BR>> Ao executar o mesmo excuta, mas não gera a
imagem. Vendo o log do apache, a<BR>> mensagem de erro que tenho que que
não pode invocar/reconhece o metodo plot.<BR>><BR>> // log<BR>>
Can't call method "plot" on an undefined value at<BR>><BR>> Vale
lembrar que meu servidor é Win2003 Server. bom vou continuar
estudando,<BR>> caso alguem tenha alguma dica ou algo parecido,
agradeço.<BR>><BR>> Ah, vale lembrar... rodando o exemplo do CPAN, deu
o mesmo erro. Bom<BR>> agradeço a qualquer
ajuda.<BR>><BR>><BR>><BR>><BR>><BR>> ----- Original
Message -----<BR>> From: Alexei Znamensky<BR>> To: Cascavel Perl
Mongers<BR>> Sent: Tuesday, February 03, 2009 12:49 AM<BR>> Subject:
Re: [Cascavel-pm] codigo de barras<BR>> Ricardo,<BR>><BR>>
Presumindo que você copiou e colou seu código no email:<BR>><BR>>
new('$produto')<BR>><BR>> aspas simples? com aspas simples você usou a
string literal $produto, ao<BR>> 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.<BR>> O que talvez esteja faltando é um
check, logo após construir o objeto, as in<BR>><BR>> with Error
Check<BR>><BR>> my $oGdBar =
GD::Barcode::EAN13->new('123456789');<BR>> die
$GD::Barcode::EAN13::errStr unless($oGdBar); #Invalid
Length<BR>><BR>> Tirado diretamente da página do módulo no
CPAN.<BR>><BR>> Read The Freaking Manual? :-P<BR>><BR>>
[]s,<BR>> Russo<BR>><BR>><BR>> 2009/2/2 Ricardo Stock <<A
href="mailto:ricardostock@bol.com.br">ricardostock@bol.com.br</A>><BR>>><BR>>><BR>>>
Ola a todos da Lista.<BR>>><BR>>> Estou tentando gerar códigos
de barras padrão EAN13 automaticamente, porém<BR>>> o codigo não me da
erros, mas também não gera a imagem. Ao "printar" na<BR>>> tela, fica
apenas o espaço reservado a imagem, mas nada da imagem de codigo<BR>>>
de barras...<BR>>><BR>>> no log, me informa que o metodo plot
não é aceito... alguma sugestão.<BR>>><BR>>> segue treho do
código.<BR>>><BR>>><BR>>> 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;<BR>>><BR>>><BR>>> Ricardo
Stock<BR>>> <A
href="mailto:ricardostock@bol.com.br">ricardostock@bol.com.br</A><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>><BR>><BR>><BR>>
--<BR>> Alexei Znamensky [russoz_gmail_com] [<A
href="http://russoz.wordpress.com"
target=_blank>russoz.wordpress.com</A>]<BR>> [<A
href="http://www.flickr.com/photos/alexeiz"
target=_blank>www.flickr.com/photos/alexeiz</A>]<BR>> "Though we live in
trying times, we're the ones who have to try"<BR>><BR>>
________________________________<BR>><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>><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>><BR><BR><BR><BR>--<BR></DIV></DIV><FONT
color=#888888>Gabriel Vieira<BR></FONT>
<DIV>
<DIV></DIV>
<DIV
class=Wj3C7c>_______________________________________________<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></DIV></DIV></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>
<P>
<HR>
<P></P>_______________________________________________<BR>Cascavel-pm mailing
list<BR>Cascavel-pm@pm.org<BR>http://mail.pm.org/mailman/listinfo/cascavel-pm</BLOCKQUOTE></BODY></HTML>