如何在我的 Perl 脚本中调用 shell 命令？

Question

什么是我如何调用 shell 命令的示例，例如 Perl 脚本中的“ls -a”以及检索命令输出的方法？

Answer 1

How to run a shell script from a Perl program

1.使用系统system($command, @arguments);

例如：

system("sh", "script.sh", "--help" );

system("sh script.sh --help");

系统将执行 $command with @arguments 并在完成后返回您的脚本。你可以检查$！ 对于外部应用程序传递给操作系统的某些错误。读 系统文档，了解如何变化的细微差别 调用略有不同。

2。使用exec

这和system的用法很相似，但是会 在执行时终止您的脚本。再次，阅读文档 exec 了解更多。

3.使用反引号或qx//

my $output = `script.sh --option`;

my $output = qx/script.sh --option/;

反引号运算符和它等效的qx//，执行运算符内部的命令和选项，并在完成时将命令输出返回到STDOUT。

还有一些方法可以通过创造性地使用open来运行外部应用程序，但这是高级用法；阅读文档了解更多信息。

Answer 2

来自Perl HowTo，从 Perl 执行外部命令的最常见方法是：

• my $files = `ls -la` — 捕获$files 中的命令输出
• system "touch ~/foo" — 如果您不想捕获命令的输出
• exec "vim ~/foo" — 如果您不想在执行命令后返回脚本
• open(my $file, '|-', "grep foo"); print $file "foo\nbar" — 如果你想通过管道输入命令

Answer 3

示例

1. `ls -l`;
2. system("ls -l");
3. exec("ls -l");

Answer 4

查看 Perl 中的 open 函数——尤其是使用“|”的变体（管道）在参数中。正确完成后，您将获得一个文件句柄，可用于读取命令的输出。反引号运算符也这样做。

您可能还想查看 Perl 是否有权访问命令本身使用的 C 函数。比如ls -a，你可以使用opendir函数，然后用readdir函数读取文件名，最后用closedir函数（惊喜）关闭目录。这有很多好处——精度可能比速度更重要。使用这些函数，即使文件名包含换行符等奇数字符，您也可以获得正确的数据。

Answer 5

随着您使用 Perl 的经验越来越丰富，您会发现需要运行 shell 命令的场合越来越少。例如，获取文件列表的一种方法是使用 Perl 的内置 glob 函数。如果您希望列表按排序顺序排列，您可以将其与内置的 sort 函数结合使用。如果您想了解每个文件的详细信息，可以使用stat 函数。这是一个例子：

#!/usr/bin/perl

use strict;
use warnings;

foreach my $file ( sort glob('/home/grant/*') ) {
    my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)
        = stat($file);
    printf("%-40s %8u bytes\n", $file, $size);
}

Answer 6

您可以通过多种方式从 Perl 脚本调用 shell 命令，例如：

1. 反勾号 ls 捕获输出并返回给您。
2. 系统 系统（'ls'）；
3. 打开

请参阅此处的 #17：Perl programming tips

Answer 7

如果您需要双向通信，您可能需要查看open2 和open3。

Answer 8

我一直使用system和qq在perl里面运行linux程序。而且效果很好。

#!/usr/bin/perl   # A hashbang line in perl
    
use strict;       # It can save you a lot of time and headache
use warnings;     # It helps you find typing mistakes

# my keyword in Perl declares the listed variable

my $adduser = '/usr/sbin/adduser';
my $edquota = '/usr/sbin/edquota';
my $chage = '/usr/bin/chage';
my $quota = '/usr/bin/quota';
my $nomeinteiro;
my $username;
my $home;


# system() function executes a system shell command
# qq() can be used in place of double quotes

system qq($adduser --home $home --gecos "$fullname" $username);
system qq($edquota -p john $username);
system qq($chage -E \$(date -d +180days +%Y-%m-%d) $username);
system qq($chage -l $username);
system qq($quota -s $username);