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文件中，我们再去读出输出就可以了~~~
perl的system函数和awk的一样不能够返回命令的输出.要得到命令的输出,就得使用和shell本身一样的命令:` ` (一对反引号,键盘上Esc键下面的那个)
$ perl
$now = `date`;
print $now;
Sun Mar 8 23:08:24 2009
|
最后,perl还可以使用exec来调用shell的命令. exec和system差不多,不同之处在于,调用exec之后,perl马上就退出,而不会去继续执行剩下的代码
$ perl
exec("date");
print "this line will never be seen.";
Sun Mar 8 23:16:54 2009
|
1 systemperl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态.如果向system传递一个字符串作参数,则perl会调用shell来执行这个命令,在这个字符串内也就不可以有perl的变量了;如果传递多个字符串作参数,则perl会自己执行这个命令,且可以传递perl自己的变量给它,因为perl会对这些变量扩展成它们的值
在
PERL
开发中，通常可以用system函数或 ``操作符来执行系统
命令
，但注意对
alias, bg, bind, break, builtin, cd, command, compgen, complete, continue, declare, dirs, disown, echo, enable, eval, exec, exit, export,
fc, fg, get
PHP的内存限制 Allowed memory size of 134217728 bytes exhausted (tried to allocate 1099 bytes) in
109317
