perl命令行-p参数

直接看操作过程吧

[root@Centos5 perl]# cat passwd
1 root:x:0:0:root:/root:/bin/bash
2 bin:x:1:1:bin:/bin:/sbin/nologin
3 daemon:x:2:2:daemon:/sbin:/bin/bash
4 adm:x:3:4:adm:/var/adm:/sbin/nologin
5 lp:x:4:7:lp:/var/spool/lpd:/sbin/nologin
6 sync:x:5:0:sync:/sbin:/bin/sync
7 shutdown:x:6:0:shutdown:/sbin:/sbin/shutdown
8 halt:x:7:0:halt:/sbin:/sbin/halt
9 mail:x:8:12:mail:/var/spool/mail:/sbin/nologin
10 news:x:9:13:news:/etc/news:

passwd文件有10行内容。如果遇到第6行则next到第7行，也就是不打印第6行内容。

[root@Centos5 perl]# perl -pe 'next if /^6/' passwd
1 root:x:0:0:root:/root:/bin/bash
2 bin:x:1:1:bin:/bin:/sbin/nologin
3 daemon:x:2:2:daemon:/sbin:/bin/bash
4 adm:x:3:4:adm:/var/adm:/sbin/nologin
5 lp:x:4:7:lp:/var/spool/lpd:/sbin/nologin
6 sync:x:5:0:sync:/sbin:/bin/sync
7 shutdown:x:6:0:shutdown:/sbin:/sbin/shutdown
8 halt:x:7:0:halt:/sbin:/sbin/halt
9 mail:x:8:12:mail:/var/spool/mail:/sbin/nologin
10 news:x:9:13:news:/etc/news:

奇怪了没有跳过啊，我的命令也没错。试试last呢？

[root@Centos5 perl]# perl -pe 'last if /^6/' passwd
1 root:x:0:0:root:/root:/bin/bash
2 bin:x:1:1:bin:/bin:/sbin/nologin
3 daemon:x:2:2:daemon:/sbin:/bin/bash
4 adm:x:3:4:adm:/var/adm:/sbin/nologin
5 lp:x:4:7:lp:/var/spool/lpd:/sbin/nologin

这次正常执行了。这是为什么呢？看下perl -h

  -n              assume "while (<>) { ... }" loop around program
  -p              assume loop like -n but print line also, like sed

看不出啥特殊含义来。

其实-p的真正含义是这样的？

-p等于执行了

while (<>) {

         yourcode；

}continue{

         print;

}

这个语句对于next是不起作用的，也就是即使有next也会执行continue语句,但是对于last和redo是没有效果的。

[root@Centos5 perl]# cat test.pl
#!/usr/bin/perl -w
use strict;
my $i = 0;

while ($i <= 5) {
        print "$i\n";
        if ($i == 2) {
                last;
        }
} continue {
    $i++;
}

先看last：结果如下没有问题。

[root@Centos5 perl]# perl test.pl
0
1
2

last改为next：

[root@Centos5 perl]# perl test.pl |head -5
0
1
2
3
4

可见next没有生效，否则将会是一个死循环，打印0 1 2 2 2 ......无数个2.