Perl脚本获取Shell命令的执行结果

find

Perl里可以调用Shell命令，有时需要根据shell命令的返回结果做进一步的工作，如何获得shell的执行结果？
方法有很多:
1. 重定向shell的标准输出或标准错误输出到某临时文件，然后再从临时文件中读出执行结果。
这个办法的好处是可以把标准输出和标准错误输出分开保存！

2.

1. my $res = `ls`;

复制代码

这种方法很直接，也很想shell

3.

1. open( my $fh, "ls |") or die "$!";
   
2. while ( <$fh> ) {
   
3. print;
   
4. }

复制代码

把管道用起来，比较新颖。