perl命令行-p参数

发布时间：2020-12-15 21:07:36 所属栏目：大数据来源：网络整理

导读：直接看操作过程吧 [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/nol

直接看操作过程吧

 
 
[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?"$in";?
  
  ????????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.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!