[Cascavel-pm] Modulos

[Brinde Storm - Steven Koch]

Fiz um modulo para ser integrado a uma pagina que ja existe
 
#---------------------------------------------------------------------------
-------------------------------------------------
 #!C:\perl\bin
package rotinas;
use Exporter;
@ISA = ('Exporter');
@EXPORT = qw(guarda le );;
 
my $arquivo_catalogo = "exemplo.csv";
 
#guarda('referencia', 'area', 'categoria');
sub guarda{
    my $referencia = $_[0];
    my $area = $_[1];
    my $categoria = $_[2];
    my $arquivo = "";
    open(CSV, "<$arquivo_catalogo");
    while(<CSV>){
        @linha = split($_, ";");
        if($linha[1] eq $referencia){
            $linha[34] = $area;
            $linha[35] = $categoria;
        }
        $arquivo = $arquivo . join(";", @linha) . "\n";
    }
    close(CSV);
    
    open(CSV , ">$arquivo_catalogo");
    print CSV $arquivo ;
    close(CSV);
    print "pronto.";
}
 
sub le{
    open(CSV, "<$arquivo_catalogo");
    my @catalogo = ();
    my $i = 0;
    while(<CSV>){
        @linha = split($_, ";");
        if($linha[34] ne "" && $linha[35] ne ""){
            $catalogo[$i] = join(";", @linha);
            $i++;
        }
        $arquivo = $arquivo . join(";", @linha) . "\n";
    }
    close(CSV);
    my $indece = int(rand($i));
    #insere div a pagina

} 
#------------------------------------------------------------------ 
 
Porque que quando utilizo ele no programa a pagina gera um erro ????
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.
 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060515/ecf80c3b/attachment.html