This is perl, version 5.005_03
Publicado: 2008-05-13 15:34 @690
Buen día, compañeros perleros, tengo un problema y me gustaría saber su opinión: tengo un pequeño script que corre dentro de un equipo Solaris con versión 5.005_03.
Lo que hace o debería de hacer este script es consultar la base de datos (de este equipo) y sacar información. Pero por la versión instalada no es posible. Me pide tenga el DBI; para esto existe una nueva versión, la 1.604, pero no es compatible con Perl así que baje la 1.37, pero no me la deja instalar (make). ¿Cómo puedo yo ejecutar un programa en este equipo para realizar una consulta considerando lo que les acabo de comentar?
Saludos cordiales.
El script que utilizo
El error.
Lo que hace o debería de hacer este script es consultar la base de datos (de este equipo) y sacar información. Pero por la versión instalada no es posible. Me pide tenga el DBI; para esto existe una nueva versión, la 1.604, pero no es compatible con Perl así que baje la 1.37, pero no me la deja instalar (make). ¿Cómo puedo yo ejecutar un programa en este equipo para realizar una consulta considerando lo que les acabo de comentar?
Saludos cordiales.
El script que utilizo
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use lib "/tmp/ejemplo/DBI-1.37";
package ConectarDB;
use strict;
use DBI;
#------------------------------
my $db_user = "t";
my $db_pass = "t0";
my $host_name = "localhost";
my $db_name = "iMapAlarmDB";
#------------------------------
my $q_string = "DBI:sybase:host=$host_name;database=$db_name";
sub connect
{
return (DBI->connect ($q_string, $db_user, $db_pass,
{PrintError => 0, RaiseError => 1}));
}
1;
use lib "/tmp/ejemplo/DBI-1.37";
package ConectarDB;
use strict;
use DBI;
#------------------------------
my $db_user = "t";
my $db_pass = "t0";
my $host_name = "localhost";
my $db_name = "iMapAlarmDB";
#------------------------------
my $q_string = "DBI:sybase:host=$host_name;database=$db_name";
sub connect
{
return (DBI->connect ($q_string, $db_user, $db_pass,
{PrintError => 0, RaiseError => 1}));
}
1;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
El error.
- Código: Seleccionar todo
k01% perl uno.pl
Can't locate loadable object for module DBI in @INC (@INC contains: /tmp/ejemplo/DBI-1.37 /usr/perl5/5.00503/sun4-solaris /usr/perl5/5.00503 /usr/perl5/site_perl/5.005/sun4-solaris /usr/perl5/site_perl/5.005 .) at /tmp/ejemplo/DBI-1.37/DBI.pm line 255
BEGIN failed--compilation aborted at /tmp/ejemplo/DBI-1.37/DBI.pm line 255.
BEGIN failed--compilation aborted at uno.pl line 6.