Linux下沒有專門為MSSQL設(shè)計的訪問庫，不過介于MSSQL本是從sybase派生出來的，因此用來訪問Sybase的庫自然也能訪問MSSQL，F(xiàn)reeTDS就是這么一個實(shí)現(xiàn)。
Perl中通常使用DBI來訪問數(shù)據(jù)庫，因此在系統(tǒng)安裝了FreeTDS之后，可以使用DBI來通過FreeTDS來訪問MSSQL數(shù)據(jù)庫，例子：
代碼如下:
using DBI;
my $cs = "DRIVER={FreeTDS};SERVER=主機(jī);PORT=1433;DATABASE=數(shù)據(jù)庫;UID=sa;PWD=密碼;TDS_VERSION=7.1;charset=gb2312";
my $dbh = DBI->connect("dbi:ODBC:$cs") or die $@;
因?yàn)楸救瞬辉趺从脀indows，為了研究QQ群數(shù)據(jù)庫，需要將數(shù)據(jù)從MSSQL中遷移到MySQL中，特地為了QQ群數(shù)據(jù)庫安裝了一個Windows Server 2008和SQL Server 2008r2,不過過幾天評估就到期了，研究過MySQL的Workbench有從MS SQL Server遷移數(shù)據(jù)的能力，不過對于QQ群這種巨大數(shù)據(jù)而且分表分庫的數(shù)據(jù)來說顯得太麻煩，因此寫了一個通用的perl腳本，用來將數(shù)據(jù)庫從MSSQL到MySQL遷移，結(jié)合bash，很方便的將這二十多個庫上百張表給轉(zhuǎn)移過去了，Perl代碼如下：
代碼如下:
#!/usr/bin/perl
use strict;
use warnings;
use DBI;

die "Usage: qq db/n" if @ARGV != 1;
my $db = $ARGV[0];

print "Connectin to databases $db.../n";
my $cs = "DRIVER={FreeTDS};SERVER=MSSQL的服務(wù)器;PORT=1433;DATABASE=$db;UID=sa;PWD=MSSQL密碼;TDS_VERSION=7.1;charset=gb2312";

sub db_connect
{
    my $src = DBI->connect("dbi:ODBC:$cs") or die $@;
    my $target = DBI->connect("dbi:mysql:host=MySQL服務(wù)器", "MySQL用戶名", "MySQL密碼") or die $@;
    return ($src, $target);
}
my ($src, $target) = db_connect;

print "Reading table schemas..../n";

my $q_tables = $src->prepare("SELECT name FROM sysobjects WHERE xtype = 'U' AND name != 'dtproperties';");#獲取所有表名
my $q_key_usage = $src->prepare("SELECT TABLE_NAME, COLUMN_NAME from INFORMATION_SCHEMA.KEY_COLUMN_USAGE;");#獲取表的主鍵
$q_tables->execute;
my @tables = ();
my %keys = ();
push @tables, @_ while @_ = $q_tables->fetchrow_array;

$q_tables->finish;

$q_key_usage->execute();
$keys{$_[0]} = $_[1] while @_ = $q_key_usage->fetchrow_array;
$q_key_usage->finish;

#獲取表的索引信息
my $q_index = $src->prepare(qq(
    SELECT T.name, C.name
    FROM sys.index_columns I
    INNER JOIN sys.tables T ON T.object_id = I.object_id
    INNER JOIN sys.columns C ON C.column_id = I.column_id AND I.object_id = C.object_id;
));
$q_index->execute;
my %table_indices = ();
while(my @row = $q_index->fetchrow_array)
{
    my ($table, $column) = @row;
    my $columns = $table_indices{$table};
    $columns = $table_indices{$table} = [] if not $columns;
    push @$columns, $column;
}
$q_index->finish;