perl调用shell命令并获取输出

1 system
perl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态.如果向system传递一个字符串作参数,则perl会调用shell来执行这个命令,在这个字符串内也就不可以有perl的变量了;如果传递多个字符串作参数,则perl会自己执行这个命令,且可以传递perl自己的变量给它,因为perl会对这些变量扩展成它们的值
$ perl
system("ls -l grep.test");
$long = "-l";
$file = "grep.test";
system "ls", $long, $file;
system("ls $long $file");
-rw-r--r-- 1 Administrator None 25 Feb 27 21:37 grep.test
-rw-r--r-- 1 Administrator None 25 Feb 27 21:37 grep.test
-rw-r--r-- 1 Administrator None 25 Feb 27 21:37 grep.test
注意上面只输出了三次grep.test的信息,且最后一行是空行,可见最后一个system调用的ls有错误,因为只传递一个字符串给system,perl是不会把这个字符串里出现的变量进行扩展的.

还有一种方法 可以自己拼出需要执行的命令

my $cmd="tree " . $dir . " | grep files | awk 'BEGIN {FS=\" \"} {print \$3}' > /tmp/filecount.tmp";

system($cmd);

这样就可以把我们的变量$dir加入到命令语句了，下面的反引号执行是不能有我们程序中的变量的 而且输出重定向到了tmp文件中，我们再去读出输出就可以了~~~

2 反引号
perl的system函数和awk的一样不能够返回命令的输出.要得到命令的输出,就得使用和shell本身一样的命令:` ` (一对反引号,键盘上Esc键下面的那个)
$ perl
$now = `date`;
print $now;
Sun Mar 8 23:08:24 2009
3 exec
最后,perl还可以使用exec来调用shell的命令. exec和system差不多,不同之处在于,调用exec之后,perl马上就退出,而不会去继续执行剩下的代码
$ perl
exec("date");
print "this line will never be seen.";
Sun Mar 8 23:16:54 2009