<!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>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.</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Verdana size=2>// log</FONT></DIV>
<DIV><FONT face=Verdana size=2>Can't call method "plot" on an undefined value at 
</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=Verdana size=2>Vale lembrar que meu servidor é Win2003 Server. 
bom vou continuar estudando, caso alguem tenha alguma dica ou&nbsp;algo 
parecido, agradeço.</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Verdana size=2>Ah, vale lembrar... rodando o exemplo do CPAN, 
deu o mesmo erro. Bom agradeço a qualquer ajuda.</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Verdana size=2></FONT>&nbsp;</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> Tuesday, February 03, 2009 12:49 
  AM</DIV>
  <DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Cascavel-pm] codigo de 
  barras</DIV>
  <DIV><BR></DIV>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-&gt;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>&lt;<A 
  href="mailto:ricardostock@bol.com.br">ricardostock@bol.com.br</A>&gt;</SPAN><BR>
  <BLOCKQUOTE class=gmail_quote 
  style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">
    <DIV bgcolor="#ffffff">
    <DIV><FONT face=Verdana size=2>&nbsp;&nbsp;&nbsp; <BR>Ola a todos da 
    Lista.</FONT></DIV>
    <DIV><FONT face=Verdana size=2></FONT>&nbsp;</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>&nbsp;</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>&nbsp;</DIV>
    <DIV><FONT face=Verdana size=2>segue treho do código.</FONT></DIV>
    <DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV>
    <DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV>
    <DIV><FONT face=Verdana size=2>use strict;<BR>use warnings;<BR>use 
    GD::Barcode::EAN13;<BR>my $barra=GD::Barcode::EAN13-&gt;new('$produto'); 
    #CAMPO NUMERO OU TEXTO<BR>binmode(STDOUT);<BR>print "Content-Type: 
    image/png\n\n";<BR>print $barra-&gt;plot-&gt;png;</FONT></DIV>
    <DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV><FONT color=#888888>
    <DIV><FONT face=Verdana size=2></FONT>&nbsp;</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>
  <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>