如何在perl中调用unix命令

Question

我正在尝试执行以下UNIX命令，但未执行

$array_of_tables= `dbsmp $srv_name`;
print "$array_of_tables\n";

请帮助我通过perl脚本找出数据库中的表列表。

我也试图通过使用以下命令将文件从路径复制到其他路径：

copy(`cd /osp/slee/service/$srv_name/bin/exec/script.txt`,`cd /osp/local/home/linus/amit/scripts`);

但出现错误：

Usage: copy(FROM, TO [, BUFFERSIZE])

请提供一些解决方案，谢谢

Answer 1

使用双引号而不是反引号。

copy("/osp/slee/service/$srv_name/bin/exec/script.txt","/osp/local/home/linus/amit/scripts");

并取出cd

Answer 2

在Perl中，捕获系统（shell）命令输出的首选方法是qx()运算符。 请参阅http://perldoc.perl.org/perlop.html#Quote-Like-Operators 。

$array_of_tables = qx(dbsmp $srv_name);
print("$array_of_tables\n");

实际上，反引号也应该起作用，因此问题必须出在dbsmp命令上。 我不确定该命令是什么。 您将必须提供有关实用程序以及所见错误的更多信息。

为了进行比较，我可以使用以下shell命令以管道分隔表的形式检索本地postgres数据库中的表列表：

> psql -tAXq main postgres <<<\\d;

可以从Perl运行，如下所示：

> perl -e 'print(qx(psql -tAXq main postgres <<<\\\\d;));'