如何使用Perl创建SQL Server数据库？

Question

我有一个在Unix机器上运行的Perl脚本，其中一个任务是创建MySQL数据库。我现在正在编写一个Windows版本来创建Microsoft SQL Server数据库，我无法弄清楚用于实际创建数据库的功能/过程。

我使用以下语句在Unix中创建MySQL数据库：

my($drh) = DBI->install_driver("mysql");
$drh->func('createdb', $databaseName, $host, $username, $password, 'admin');

SQL Server的等效内容是什么？

Answer 1

只需像执行任何其他查询一样执行相关的“CREATE DATABASE”sql。显然，首先您需要以具有相关权限的用户身份连接到另一个数据库。

Answer 2

func方法。来自Perldoc：

  

func方法可用于调用驱动程序实现的私有非标准和非可移植方法。请注意，函数名称是最后一个参数。

     

[...]

     

另请参阅DBI :: DBD中的install_method（），了解如何避免使用func（）并获得对驱动程序私有方法的直接访问。

您可以使用install_method做您想做的事吗？它有点便携吗？