今天在linux上用perl链接sqlserver，执行存储过程，获取一个结果集

#!/usr/bin/perl use DBI; use Data::Dumper; $dbh=DBI->connect('dbi:ODBC:TEST','perf_gather',‘1234567’); my $hash_row = $dbh->selectrow_hashref("exec DBA.Insert_Performance_counter"); print Data::Dumper

>>阅读原文<<