perl 语言 如何连接 mssqlserver

现在已经成功连接mysql   但是现在要求连接 mssqlserver
下面代码如何更改

package bureauDB;
use strict;

my $dbuser="sa";
my $dbpswd='test';
my $db='bureau';

my $dbh;

sub db_begin
{
$dbh=DBI->connect(DBI:MSSQL:$db",$dbuser,$dbpswd);
die("ddd") unless (defined $dbh);
dbh->do("set names uft8");

}

sub db_query
{
my $s=shitf;
...
}

sub db_end
{
$dbh_>disconnect;
}
希望不要 使用 odbc。

用到的perl 扩展组件(modules)在上篇贴出.( win32:dbc 模块 )
    下载组件后按照Readme文件安装倒响应目录.配置好相应的odbc数据源.
  
程序实现:
  
    使用
            use Win32::ODBC;
  
    语句包含应使用的模块是win32:dbc
    写出数据库连接字符串
  
            $DSN = "DSN = My DSN;UID = sa; PWD = password"
  
    然后就可以建立相应的连接
  
           $data = new Win32::ODBC($DSN)  # new 一个连接对象
  
   这样就建立了和数据源指向的SQL Server的连接
   当然还有更多更复杂的数据库操作.大家可以参考上篇的对象说明文档.
  
简单举例:
  
        $data->TableList; # 得到数据库的所有基本表的列表
        $data->Sql("SELECT * FROM [tablename]" # 执行一条查询语句
        $data->FieldNames();  # 得到列(属性)的列表
        ....
    还有很多的操作在原模块作者给出的文档中有详细介绍.