Sqlserver
 sql >> Datenbank >  >> RDS >> Sqlserver

Verbinden Sie sich von Perl mit SQL Server 2005 und führen Sie ein SELECT durch

Sie müssen DBI verwenden, und Sie verwenden wahrscheinlich am besten den DBD::ODBC-Anbieter von (CPAN ). Wenn Sie DBI nicht kennen, müssen Sie sich darüber informieren. Es gibt ein Buch (Programming the Perl DBI ). ), die alt, aber immer noch gültig ist.

Dann etwa so:

use strict;
use warnings;
use DBI;

# Insert your DSN's name here.
my $dsn = 'DSN NAME HERE'

# Change username and password to something more meaningful
my $dbh = DBI->connect("DBI:ODBC:$dsn", 'username', 'password')

# Prepare your sql statement (perldoc DBI for much more info).
my $sth = $dbh->prepare('select id, name from mytable');

# Execute the statement.
if ($sth->execute)
{
    # This will keep returning until you run out of rows.
    while (my $row = $sth->fetchrow_hashref)
    {
        print "ID = $row->{id}, Name = $row->{name}\n";
    }
}

# Done. Close the connection.
$dbh->disconnect;