<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.2800.1276" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face=Arial><FONT color=#0000ff><FONT size=2><SPAN
class=656150013-15052006>Fiz um modulo para ser integrado a uma pagina que ja
existe</SPAN></FONT></FONT></FONT></DIV>
<DIV><FONT face=Arial><FONT color=#0000ff><FONT size=2><SPAN
class=656150013-15052006> </SPAN></FONT></FONT></FONT></DIV>
<DIV><FONT face=Arial><FONT color=#0000ff><FONT size=2><SPAN
class=656150013-15052006>#----------------------------------------------------------------------------------------------------------------------------</SPAN></FONT></FONT></FONT></DIV>
<DIV><FONT face=Arial><FONT color=#0000ff><FONT size=2><SPAN
class=656150013-15052006> </SPAN>#!C:\perl\bin<BR>package rotinas;<BR>use
Exporter;<BR>@ISA = ('Exporter');<BR>@EXPORT = qw(guarda le
);;</FONT></FONT></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2>my $arquivo_catalogo =
"exemplo.csv";</FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2>#guarda('referencia', 'area',
'categoria');<BR>sub guarda{<BR> my $referencia =
$_[0];<BR> my $area = $_[1];<BR> my
$categoria = $_[2];<BR> my $arquivo =
"";<BR> open(CSV,
"<$arquivo_catalogo");<BR>
while(<CSV>){<BR> @linha =
split($_, ";");<BR> if($linha[1] eq
$referencia){<BR>
$linha[34] =
$area;<BR>
$linha[35] = $categoria;<BR>
}<BR> $arquivo = $arquivo . join(";",
@linha) . "\n";<BR> }<BR>
close(CSV);<BR> <BR> open(CSV ,
">$arquivo_catalogo");<BR> print CSV $arquivo
;<BR> close(CSV);<BR> print
"pronto.";<BR>}</FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2>sub le{<BR>
open(CSV, "<$arquivo_catalogo");<BR> my @catalogo =
();<BR> my $i = 0;<BR>
while(<CSV>){<BR> @linha =
split($_, ";");<BR> if($linha[34] ne
"" && $linha[35] ne
""){<BR>
$catalogo[$i] = join(";",
@linha);<BR>
$i++;<BR>
}<BR> $arquivo = $arquivo . join(";",
@linha) . "\n";<BR> }<BR>
close(CSV);<BR> my $indece =
int(rand($i));<BR> #insere div a pagina<BR><BR>}<SPAN
class=656150013-15052006> </SPAN></FONT></DIV>
<DIV><FONT><FONT face=Arial><FONT color=#0000ff><FONT size=2><SPAN
class=656150013-15052006>#------------------------------------------------------------------ </SPAN><BR><SPAN
class=656150013-15052006> </SPAN></FONT></FONT></FONT></FONT></DIV>
<DIV><FONT><FONT face=Arial><FONT color=#0000ff><FONT size=2><SPAN
class=656150013-15052006>Porque que quando utilizo ele no programa a pagina
gera um erro ????<PRE><FONT size=3>Can't locate rotinas.pm in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib .) at ...\index.cgi line 2.
BEGIN failed--compilation aborted at ..\index.cgi line 2.</FONT></PRE> </SPAN></FONT></FONT></FONT></DIV></FONT></BODY></HTML>