在Perl中，可以使用system、exec、readpipe这三个命令来调用其他脚本、系统命令等。
这三个命令的主要区别就是返回值。
1) 对于system这个函数来说，它会返回执行后的状态，比如说
复制代码 代码如下:
@args = (“command”, “arg1″, “arg2″);
system(@args) == 0
or die “system @args failed: $?”
当然，你也可以用类似于下面的语句来检查出错的原因：
复制代码 代码如下:
if ($? == -1) {
print “failed to execute: $!n”;
}
elsif ($? & 127) {
printf “child died with signal %d, %s coredumpn”,
($? & 127), ($? & 128) ? ‘with’ : ‘without’;
}
else {
printf “child exited with value %dn”, $? >> 8;
}
2) 而对于exec这个函数来说，仅仅是执行一个系统的命令，一般情况下并没有返回值。exec只有在系统没有你要执行的命令的情况下，才会返回false值。
复制代码 代码如下:
exec (‘foo’) or print STDERR “couldn’t exec foo: $!”;
{ exec (‘foo’) }; print STDERR “couldn’t exec foo: $!”;
3) 当我们需要保存系统命令运行的结果，以便分析并作进一步的处理时，就要用到readpipe这个函数了。例如：
复制代码 代码如下:
@result = readpipe( “ls -l /tmp” );
print “@result”;
会产生如下的结果：
drwxr-xr-x 2 root root 4096 Mar 19 11:55 testdir
当然，你也可以把生成的结果放到一个文件里，以便写工作日志呀、发布报告呀。
复制代码 代码如下:
$inject_command = “./ConfigChecker.bat F:/nic/3502/ARRAY-4AD2E0573/etc “.$device_name;
chdir “F:/TestTools/bin/”;
@temp_result = readpipe($inject_command);
open(result_file,”>result.txt”);
print result_file @temp_result;
close(result_file);
如此一来，就把系统运行的结果扔到了系统命令所在目录下的result.txt文件里了。
