Answers:
执行命令永不返回。就像一个return
函数中语句。
如果找不到该命令,则exec
返回false。它永远不会返回true,因为如果找到该命令,它将根本不会返回。也有在没有返回点STDOUT
,STDERR
或命令的退出状态。您可以在中找到有关它的文档 perlfunc
,因为它是一个函数。
执行命令,命令完成后继续执行Perl脚本。
返回值是命令的退出状态。您可以在中找到有关它的文档 perlfunc
。
例如system
执行命令,并且在命令完成后继续执行您的perl脚本。
与命令system
的返回值相反STDOUT
。
qx//
等同于反引号。您可以在中找到有关此文档的文档perlop
,因为与system
和exec
它是一个运算符。
上面缺少的是一种异步执行命令的方法。这意味着您的perl脚本和命令将同时运行。这可以通过完成open
。它允许您阅读STDOUT
/STDERR
写入STDIN
命令。但是,它取决于平台。
还有几个模块可以简化此任务。有IPC::Open2
和IPC::Open3
和IPC::Run
,以及
Win32::Process::Create
您是否在Windows上。
总的来说,我使用system
,open
,IPC::Open2
,或IPC::Open3
取决于我想做的事情。该qx//
操作虽然简单,太在其功能限制到快的黑客是非常有用的外面。我发现open
要方便得多。
system
:运行命令并等待其返回使用system
时要运行的命令,不关心它的输出,并且不希望Perl脚本做任何事情,直到命令完成。
#doesn't spawn a shell, arguments are passed as they are
system("command", "arg1", "arg2", "arg3");
要么
#spawns a shell, arguments are interpreted by the shell, use only if you
#want the shell to do globbing (e.g. *.txt) for you or you want to redirect
#output
system("command arg1 arg2 arg3");
qx//
或``:运行命令并捕获其STDOUT使用qx//
时要运行一个命令,捕捉它写到标准输出,并且不希望Perl脚本做任何事情,直到命令完成。
#arguments are always processed by the shell
#in list context it returns the output as a list of lines
my @lines = qx/command arg1 arg2 arg3/;
#in scalar context it returns the output as one string
my $output = qx/command arg1 arg2 arg3/;
exec
:用另一个进程替换当前进程。使用exec
连同fork
当你想运行一个命令,不关心它的输出,并且不希望等待它返回。 system
真的只是
sub my_system {
die "could not fork\n" unless defined(my $pid = fork);
return waitpid $pid, 0 if $pid; #parent waits for child
exec @_; #replace child with new process
}
open
:运行一个进程并为其STDIN或STDERR创建管道使用open
时要将数据写入过程的STDIN或从一个进程的标准输出读取数据(但不能同时在同一时间)。
#read from a gzip file as if it were a normal file
open my $read_fh, "-|", "gzip", "-d", $filename
or die "could not open $filename: $!";
#write to a gzip compressed file as if were a normal file
open my $write_fh, "|-", "gzip", $filename
or die "could not open $filename: $!";
使用IPC::Open2
时需要读取和写入到一个进程的标准输入和标准输出。
use IPC::Open2;
open2 my $out, my $in, "/usr/bin/bc"
or die "could not run bc";
print $in "5+6\n";
my $answer = <$out>;
使用IPC::Open3
时您需要捕获过程的所有三个标准的文件句柄。我会写一个示例,但是它的工作方式与IPC :: Open2的工作原理基本相同,但是参数和第三个文件句柄的顺序略有不同。
exec函数执行系统命令,并且永不返回 - 如果要返回,请使用system而不是exec
与exec LIST完全相同,只是先完成一个派生,并且父进程等待子进程完成。
与exec和system相比,反引号不会给您返回值,而是给您收集的STDOUT。
一个(可能)被插值然后作为/ bin / sh或其等效项的系统命令执行的字符串。Shell通配符,管道和重定向将受到尊重。返回命令收集的标准输出 ; 标准错误不受影响。
在更复杂的情况下,如果要获取STDOUT,STDERR或返回代码,则可以使用IPC :: Open2和IPC :: Open3等众所周知的标准模块。
例:
use IPC::Open2;
my $pid = open2(\*CHLD_OUT, \*CHLD_IN, 'some', 'cmd', 'and', 'args');
waitpid( $pid, 0 );
my $child_exit_status = $? >> 8;
最后,从CPAN 运行IPC :: Run也值得一看...
Perl的反引号(`
)system
,和之间有什么区别exec
?
exec -> exec "command"; ,
system -> system("command"); and
backticks -> print `command`;
exec
exec
执行命令,从不恢复Perl脚本。对于脚本来说,就像return
对函数的声明一样。
如果找不到该命令,则exec
返回false。它永远不会返回true,因为如果找到该命令,它将根本不会返回。也有在没有返回点STDOUT
,STDERR
或命令的退出状态。您可以在perlfunc中找到有关它的文档,因为它是一个函数。
例如:
#!/usr/bin/perl
print "Need to start exec command";
my $data2 = exec('ls');
print "Now END exec command";
print "Hello $data2\n\n";
在上面的代码中,有三个print
语句,但是由于exec
离开了脚本,因此仅执行第一个print语句。另外,exec
命令输出未分配给任何变量。
在这里,只有您只获得第一条print
语句的输出和ls
标准输出执行命令。
system
system
执行命令,命令完成后将恢复您的Perl脚本。返回值是命令的退出状态。您可以在perlfunc中找到有关它的文档。
例如:
#!/usr/bin/perl
print "Need to start system command";
my $data2 = system('ls');
print "Now END system command";
print "Hello $data2\n\n";
在上面的代码中,有三个print
语句。在system
命令后恢复脚本时,将执行所有三个打印语句。
另外,运行的结果system
被分配给data2
,但分配的值是0
(从退出代码ls
)。
在这里,您将获得第一个print
语句的输出,然后是ls
命令的输出,然后是print
标准输出中最后两个语句的输出。
`
)像一样system
,将命令括在反引号中会执行该命令,并在命令完成后恢复您的Perl脚本。与相比system
,返回值是STDOUT
命令的。qx//
等同于反引号。您可以在perlop中找到有关它的文档,因为与system和不同exec
,它是一个运算符。
例如:
#!/usr/bin/perl
print "Need to start backticks command";
my $data2 = `ls`;
print "Now END system command";
print "Hello $data2\n\n";
在上面的代码中,有三个print
语句,所有三个语句都正在执行。的输出ls
不会直接进入标准输出,而是分配给变量data2
,然后由最终的print语句打印。
“ exec”和“ system”之间的区别在于,exec用“ command”替换您当前的程序,并且从不返回您的程序。另一方面,系统分叉并运行“命令”,并在完成运行后返回“命令”的退出状态。反向标记运行“命令”,然后返回代表其标准输出的字符串(无论它会打印到屏幕上的什么)
您还可以使用popen来运行Shell命令,我认为这里有一个Shell模块-“ use shell”使您可以透明地访问典型的Shell命令。
希望能为您澄清。
use Shell;
(search.cpan.org/dist/Shell/Shell.pm)?我认为它没有被广泛安装,也不适用于这个问题……