如何在 perl 中调用 unix 命令答案

【问题标题】：how to invoke unix command in perl如何在 perl 中调用 unix 命令
【发布时间】：2015-01-08 15:46:32
【问题描述】：

我正在尝试执行以下 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])

请提供一些解决方案谢谢

【问题讨论】：

标签： perl unix

【解决方案1】：

使用双引号代替反引号。

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

并删除cd

【讨论】：

【解决方案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;));'

【讨论】：