En fin. Necesito conectarme a una base de datos Sybase, para lo cual tengo el siguiente código:
Using perl Syntax Highlighting
#!/usr/bin/perl -w
package conectarsb;
use strict;
use DBI;
use DBD::Sybase;
# variables a editar
my $db_user = "sybase";
my $db_pass = "sybase";
my $host_name = "El numero Fantasma";
my $db_name = "iMapAlarmDB ";
my $q_string = "DBD:Sybase=$host_name;database=$db_name";
sub connect
{
return (sb->connect ($q_string, $db_user, $db_pass, {PrintError => 0, RaiseError => 1}));
}
package conectarsb;
use strict;
use DBI;
use DBD::Sybase;
# variables a editar
my $db_user = "sybase";
my $db_pass = "sybase";
my $host_name = "El numero Fantasma";
my $db_name = "iMapAlarmDB ";
my $q_string = "DBD:Sybase=$host_name;database=$db_name";
sub connect
{
return (sb->connect ($q_string, $db_user, $db_pass, {PrintError => 0, RaiseError => 1}));
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Ejecuto este archivo y todo bien, no me manda error, pero tampoco me manda nada... recuerdo que alguien posteó algo sobre ingresar un print para saber si se conectó o no... y diría que se pondría por aquí:
Using perl Syntax Highlighting
{
return (sb->connect ($q_string, $db_user, $db_pass, {PrintError => 0, RaiseError => 1}));
print "Se conecto/n";
}
1;
return (sb->connect ($q_string, $db_user, $db_pass, {PrintError => 0, RaiseError => 1}));
print "Se conecto/n";
}
1;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
... pero no aparece nada... bueno, después de esto creo mi programa para sacar información, y bueno, continúa después el sacar la información y después guardarla en un TXT, pero ando bien norteado... ¿alguien que me pueda decir más o menos por dónde va la cosa?
