我正在编写一个 perl 脚本，其中我必须关闭我的 mssql 服务器，执行一些操作，然后我必须重新启动它。我知道一种方法是使用 netstat 来停止服务，但我不能使用它。所以我尝试安装 DBI 和 DBD::ODBC 模块。我可以通过以下代码连接和执行查询
use DBI;
my $data_source = q/dbi:ODBC:AUTOMATION_WOW64/;
my $user = q/pa/;
my $password = q/DCE/;
# Connect to the data source and get a handle for that connection.
my $dbh = DBI->connect($data_source, $user, $password)
or die "Can't connect to $data_source: $DBI::errstr";
my $str=$dbh->prepare("select SERVERPROPERTY('edition')");
$str->execute();
my @row;
while (@row = $str->fetchrow_array) { # retrieve one row
print join(", ", @row), "\n";
}
但即使经过大量搜索，我也找不到任何可以关闭服务器的查询。只是想知道是否可以从 sql 查询中关闭服务器。我为mysql服务器找到了一个
$rc = $dbh->func('shutdown', 'admin');
在此链接http://metacpan.org/pod/DBD::mysql 请告诉我 mssql 服务器是否存在类似的东西。