Perl 获取shell命令的执行结果
作者:
Perl里可以调用Shell命令,有时需要根据shell命令的返回结果做进一步的工作,如何获得shell的执行结果?
方法有很多:
1. 重定向shell的标准输出或标准错误输出到某临时文件,然后再从临时文件中读出执行结果。
这个办法的好处是可以把标准输出和标准错误输出分开保存!
2. my $res = `ls`;
这种方法很直接,也很想shell
3. open( my $fh, "ls |") or die "$!";
while ( <$fh> ) {
print;
}
把管道用起来,比较新颖。
1. 重定向shell的标准输出或标准错误输出到某临时文件,然后再从临时文件中读出执行结果。
这个办法的好处是可以把标准输出和标准错误输出分开保存!
2. my $res = `ls`;
这种方法很直接,也很想shell
3. open( my $fh, "ls |") or die "$!";
while ( <$fh> ) {
print;
}
把管道用起来,比较新颖。