Siguiendo con el telele :-) de acceso a bases de datos MSSQL desde Linux. Ahora consulte el siguiente URL para tener pistas de como hacer que DBD::Sybase, el driver de DBI, acceda a bases de datos MSSQL. http://www.hklc.com/infocenter/301.html Con esa informacion, hice lo siguiente: 1. Baje DBD::Sybase desde CPAN (en CPAN dar "get DBD::Sybase"). La version mas reciente es la 0.91 2. Fui a $HOME/.cpan/build/DBD-Sybase-0.91 3. Modifique el archivo CONFIG en ese directorio: SYBASE=/usr/local/freetds/ EXTRA_LIBS=-linsck 4. Ejecute perl Makefile.PL 5. Copie el archivo PWD de la distribucion de /usr/local/freetds. Si no tiene FreeTDS, bajelo de http://www.freetds.org/ 6. make test 7. make install Mi archivo /usr/local/freetds/interfaces tiene lo siguiente: SERVIDOR query tcp ether 163.178.120.15 1433 master tcp ether 163.178.120.15 1433 gimli query tcp ether gimli 4100 master tcp ether gimli 4100 La primera entrada apunta a una base de datos MSSQL. La segunda, a una Sybase 11.9.2 ASE. Pueden usar estas dos conexiones. La base de datos del primero se llama "gimli" y la del segundo "testdb". Ambas son de prueba. Favor de no hacer cosas como "DROP DATABASE".......:-))) El siguiente script de Perl funciono muy bien: #!/usr/bin/perl use DBI; $dbh = DBI->connect ("dbi:Sybase:server=SERVIDOR;database=gimli", "sa", ""); $sth = $dbh->prepare("select * from t1"); $rc=$sth->execute; while (@resultado = $sth->fetchrow_array) { print "$resultado[0] $resultado[1] $resultado[2] $resultado[3]\n"; } Como puede verse, este script trabaja con la base de datos en MSSQL. Mario Guerra -- �Desea desuscribirse? Escriba a [EMAIL PROTECTED] con el tema "unsubscribe".
