Hola, ¿cómo están? Soy nuevo en el foro y nuevo en Perl también, ¡je,je,je,...! Necesito que me ayuden porque estoy realizando una aplicación, el código es el siguiente:
archivo1
.
.
.
my $value=$query->param('busq');
my $campo = new buscar;
if ($value=~//){
$campo->busqueda($value);
print $query->a({href=>"most.pl?name=$campo->busqueda", -target=>'_self'},$campo->busqueda);
}
archivo2
.
.
.
sub busqueda {
$obj = shift;
$obj->{busqueda} = shift if @_;
my $dbh = DBI->connect("DBI:Pg:dbname=directorio;host=10.16.105.174;port=5432"."directorio","directorio","directorio");
my $sth = $dbh->prepare("SELECT institucion.name, ...