Ver Tema

thegame · 2012-01-30 10:54 @496

Tengo el siguiente código:

Syntax: [ Download ] [ Hide ]

#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Mod_dir::buscar;
#use strict;
#use warnings;
print error;
#print "Content-type: text/html;charset=UTF-8\n\n";
$query = new CGI;
$query->charset('UTF-8');
print $query->header('text/html');
print $query->start_html({-title=>'', -style=>"../../Css/style_formulario.css"});
print $query->startform;
print"<div id=\"buscar\">";
print $query->div({id=>'bBuscar'},($query->submit({class=>'boton', -value=>'Buscar'})));
print $query->div({id=>'cajatext'},($query->textfield({class=>'bus', -name=>'busq'})));
print "</div>";
print $query->end_form;
my $value = $query->param('busq');
my $campo = buscar->new;
if ($value =~ /[a-zA-Z]/) {
my @resultado = @{ $campo->busqueda($value) };
print"<div id=\"tablaM\">";
print $query->start_table;
print $query->Tr($query->th( {id=>'tablaSubTitulo'}, ['Resultados'] ) ), "\n";
for my $resultado (@resultado) {
print $query->Tr($query->td({id=>'tablaSmall'},$query->a({href=>"mostrar.pl?name=$resultado", -target=>'_self'}, $resultado)));
print "</div>";
#print $query->br;
}
print $query->end_table();
}
else{
my $tabla=buscar->new;
my @ins=@{$tabla->llamar_inst};
print"<div id=\"tablaM\">";
print $query->start_table;
print $query->Tr($query->th( {id=>'tablaSubTitulo'}, ['Instituciones'] ) ), "\n";
for my $ins (@ins) {
print $query->Tr($query->td( {id=>'tablaSmall'},$query->a({href=>"mostrar.pl?$ins", -target=>'_self'}, $ins)));
}
print $query->end_table;
print "</div>";

y en el navegador me bota el siguiente error: Can't locate object method "llamar_inst" via package "UTF-8" (perhaps you forgot to load "UTF-8"?) at /var/www/cgi-bin/Directorio/info.pl line 43.

¿¿Por qué?? ¡No entiendo por qué el error? Ayuda, por favor.

explorer · 2012-01-30 11:19 @513

El mensaje de error dice que $tabla vale 'UTF-8' (una cadena literal). Y que no es capaz de encontrar una package llamado así.

Revisa que en la línea 42, buscar->new() te ha devuelto un objeto o esa cadena.

thegame · 2012-01-30 11:26 @518

Listo, ya revisé... era en el módulo, que tenía problema. De nuevo, gracias.

Publicidad

Socializa