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