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
|
ps aux --sort=cpu |
grep
ssh
grep
命令
主要用于过滤文本，
grep
家族如下
grep
： 在文件中全局查找指定的正则表达式，并打印所有包含该表达式的行
e
grep
：扩展的e
grep
，支持更多的正则表达式元字符
f
grep
：固定
grep
(fixed
grep
)，有时也被称作快速(fast
grep
)，它按字面解释所有的字符
grep
命令
格式如下
grep
[选项] PATTERN 文件1 文件2 .
1. system(”command”);使用该
命令
将开启一个子进程执行引号中的
命令
，父进程将等待子进程结束并继续执行下面的代码。2. exec(”command”);效果同system
命令
类似，区别是不会开启子进程，而是取代父进程，因此执行完引号中的
命令
后进程即结束。一般和fork配合使用。3. `command`;使用反引号
调用
外部
命令
能够捕获其标准
输出
，并按行返回且每行结束处附带一个
众所周知，
perl
处理字符串的功能十分强大，然而，作为一种语言，强大是一回事，简单方便则是另外一回事。
今天就遇到一个例子，是这样的，想要在xen上
获取
某个虚拟机的CPU使用率，于是使用
命令
“xentop -b -i 2 > /tmp/xentop.tmp”，获得类似下面的数据：
NAME STATE CPU(sec) CPU(%...
方法一：In
shell
using export to output a variable, and in
perl
using special variable %ENV to get
shell
s variables.i.e.:---
shell
box---$ /bin/ksh# export x=Foo#
perl
-e print $ENV{"x"}----------
有一个实例，
Perl
从配置文件中读取一段pattern，这段pattern里有
SHELL
命令
组合用于
获取
Linux的时事信息，整个pattern在
获取
SHELL
命令
返回值后才是完整的。
Perl
获取
pattern后，执行
SHELL
组合，然后把结果替换string中原有的
SHELL
命令
字符。如果
SHELL
命令
不止一个。还需要循环来分别用正则表达式提取执行、替换。例如：
#!/usr...
#!/usr/bin/
perl
@spam=("bat","cat","dath","datg");if (my $lines=
grep
{/dat/}@spam){#再标量上下文中，
grep
返回的是匹配到的个数 print "$lines\n";}@spam2=("bat","cat","dath","datg");#再列表上下文中，
grep
返回的是匹配到的字符串列表if (my @li...
