Yo tengo mis 2 programas
conectarsb.pm
uno.pl
El primero es:
Using perl Syntax Highlighting
package conectarsb;
use strict;
use DBI;
# variables a editar
my $db_user = "usuario";
my $db_pass = "clave";
my $host_name = "la ip misterio";
my $db_name = "DB";
# vars
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}));
}
use strict;
use DBI;
# variables a editar
my $db_user = "usuario";
my $db_pass = "clave";
my $host_name = "la ip misterio";
my $db_name = "DB";
# vars
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}));
}
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Mi segundo programa:
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use lib "/usr/lib";
use conectarsb;
use strict;
use DBI;
use DBD::Sybase;
my($dbh,$sth);
$dbh = ConectarDB->connect();
$sth = $dbh->prepare('SELECT tad.SerialNo, tn.LabelName, tan.AeName FROM tbl_AlarmData tad, tbl_AlarmName tan, tbl_Node tn WH
ERE tad.EqType = tan.EqType AND tad.AlarmType = tan.AeID ANDtn.NodeID = tad.NodeId; ') or die("Couldn't prepare statement: "
. $dbh->errstr);
$sth->execute("perl") or die("Couldn't execute statement: " . $sth->errstr);
my $fecha = $sth->fetchrow_array();
$sth->finish;
$dbh->disconnect;
use lib "/usr/lib";
use conectarsb;
use strict;
use DBI;
use DBD::Sybase;
my($dbh,$sth);
$dbh = ConectarDB->connect();
$sth = $dbh->prepare('SELECT tad.SerialNo, tn.LabelName, tan.AeName FROM tbl_AlarmData tad, tbl_AlarmName tan, tbl_Node tn WH
ERE tad.EqType = tan.EqType AND tad.AlarmType = tan.AeID ANDtn.NodeID = tad.NodeId; ') or die("Couldn't prepare statement: "
. $dbh->errstr);
$sth->execute("perl") or die("Couldn't execute statement: " . $sth->errstr);
my $fecha = $sth->fetchrow_array();
$sth->finish;
$dbh->disconnect;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Y me sale el error.
- Código: Seleccionar todo
Can't locate loadable object for module DBI in @INC (@INC contains: /usr/lib /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 /usr/t2000/aortegam/bin/lib/DBI.pm line 263
¿Alguna idea de lo que esté pasando?
Por cierto, ¿alguien sabe cómo trabaja la inserción de base de datos en sybase para el tiempo? Porque por ejemplo en mi campo de tiempo aparece 114557611 y ese dato lo tengo que transformar en 2008-07-17 16:39:57 pero no tengo ni idea de cual sería la llave para hacer esto. ¿Alguien tiene una idea?
Saludos.
