Foro - Perl en Español

por **danimera** » 2011-01-27 09:19 @430

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Software error:

Base class package "CGI::Application" is empty.

    (Perhaps you need to 'use' the module which defines that package first,

    or make that module available in @INC (@INC contains: ../ C:/Perl/site/lib C:/Perl/lib .).

 at Bots/ClasificadosOnLineBots.pm line 5

BEGIN failed--compilation aborted at Bots/ClasificadosOnLineBots.pm line 5.

Compilation failed in require at D:\Sitios web\robots buyigo\index.pl line 8.

BEGIN failed--compilation aborted at D:\Sitios web\robots buyigo\index.pl line 8.

Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Es todo, siendo usuario neto de cgi-app, me he olvidado de Perl y ahora no sé por qué me sale este error tan poco convencional. Mi estructura de directorios es así.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

robots buyigo/

             index.pl

             Bots/

                  ClasificadosOnlineBots.pmColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Mi código ClasificadosOnLineBots.pm

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package ClasificadosOnLineBots;
 
use base 'CGI::Application';
 
     sub setup {
          my $self = shift;
          $self->run_modes(
               'mode_1' => 'formJobs',
               'mode_2' => 'show_results_list',
               'mode_3' => 'show_widget_detail'
           );
           $self->start_mode('mode_1');
           $self->mode_param('rm');
     }
 
 
sub formJobs{
            my $mech = WWW::Mechanize->new();
            $url = "http://www.clasificadosonline.com/JobsInsert2.asp";
            $mech->get( $url );
            $mech->submit();
            $mech->form_name( "form1" );
 
 
            print header;
            #
            print "<pre>".Dumper  $mech->current_form();
            $mech->submit();
 
            print $mech->content();
}
 
1;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Y mi index.pl

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use lib('../');
use CGI qw(:all);
use CGI::Carp qw(fatalsToBrowser);
use warnings;
use Diagnostics;
use Bots::ClasificadosOnLineBots;
my $q = new CGI; #nuevo objeto CGI
 
 
my $app = ClasificadosOnLineBots->new( QUERY => $q      );
$app->run();
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Base class package "CGI::Application" is empty

Base class package "CGI::Application" is empty

Publicidad

Re: Base class package "CGI::Application" is empty

¿Quién está conectado?