在Perl中将sql server表读入哈希的简单方法是什么？

Question

我想要一个简单的perl脚本/ sub来将sql server表读入一个哈希,是否有人有一个好的脚本或片段(使用'use')可以在给定连接字符串和表名的情况下执行此操作？

这是一个模板:

sub sqltable {    
    my ($connStr,$table) = @_;    
    my ($user, $password, $host) = ($connectstr =~ m|^(.*)/(.*)@(.*)$|); # or whatever    
    my $dbh = DBI->connect("dbi:???:$host",$user,$password, { RaiseError => 1 }); # replace ??? with good SQL Server equivalent
    $dbh-> ???; # anything good for this part?  LongTruncOk?  LongReadLen?    
    return $dbh->selectall_arrayref("select * from $table");    
}

Answer 1

请参阅Perl DBI页面中的selectall_hashref.

Answer 2

关于使用Perl连接到SQL Server,

• 如果您使用的是Windows计算机,请参阅:如何使用Windows中的Perl DBI模块连接到MSSQL数据库？

• 如果您使用的是Linux,请参阅:如何从Linux中的Perl脚本访问SQL Server数据库？