正则有类似 || 这样的功能吗？

风吹不倒

1. ClientIP:192.168.1.11
   
2. ClientIP:192.168.1.12 ForwardIP:172.16.9.11
   
3. ClientIP:192.168.1.13
   
4. ClientIP:192.168.1.14
   
5. ClientIP:192.168.1.15 ForwardIP:172.16.9.12

复制代码

想输出如下

1. ClientIP:192.168.1.11
   
2. ClientIP:172.16.9.11
   
3. ClientIP:192.168.1.13
   
4. ClientIP:192.168.1.14
   
5. ClientIP:172.16.9.12

复制代码

我想先匹配到Forward字符串就输出Forward后面的IP，匹配失败则输出前面的clientIP，正则如何写

ziyunfei

1. perl -F":|\s" -lane '$,=":";print $#F==1?@F[0,1]:@F[0,3]' file

复制代码

jason680

想输出如下我想先匹配到Forward字符串就输出Forward后面的IP，匹配失败则输出前面的clientIP，正则如何写
风吹不倒 发表于 2011-03-17 09:14

1. while(<DATA>){
   
2.   chomp;
   
3.   if(m/ForwardIP:(\S+)/){
   
4.     print "ClientIP:$1\n";
   
5.   }
   
6.   elsif(m/ClientIP:(\S+)/){
   
7.     print "ClientIP:$1\n";
   
8.   }
   
9.   else{
   
10.     print "something wrong:$_\n";
    
11.   }
    
12. 
    
13. }
    
14. __DATA__
    
15. ClientIP:192.168.1.11
    
16. ClientIP:192.168.1.12 ForwardIP:172.16.9.11
    
17. ClientIP:192.168.1.13
    
18. ClientIP:192.168.1.14
    
19. ClientIP:192.168.1.15 ForwardIP:172.16.9.12
    

复制代码

1. 如果用if(m/ForwardIP:(\S+)|ClientIP:(\S+)/)
   
2. ClientIP会先match成功...

复制代码

风吹不倒

回复 2# ziyunfei


    谢谢！
    不过我需要在脚本里处理，之后把结果再操作，每一行内容前四段大致如下
ClientIP:192.168.1.12 ForwardIP:192.168.9.11 2011-03-15 17:00:00

   我想输出的是 IP:192.168.9.11 Date:2011-03-15 Time:17:00:00
   希望在正则里就能处理，自己写了个

1. s/(ClientIP:).*?ForwardIP:(.*?)/$1$2/;

复制代码

先对每行是否有ForwardIP做出处理，然后下一行再用正则捕获字段;
   有没有更简练的方法，一行正则就能完成的

jason680

回复  ziyunfei


    谢谢！
    不过我需要在脚本里处理，之后把结果再操作，每一行内容前四段大致如 ...
风吹不倒 发表于 2011-03-17 09:44

1. 
   
2. s/ClientIP(.+ForwardIP)?:/IP:/;   # for IP
   
3. s/(\d{4}\-)/Date:$1/;                # for Date
   
4. s/(\d\d?:)/Time:$1/;                  # for Time
   
5. 
   
6. or
   
7. s/ClientIP(?:.+ForwardIP)?:(\S+) (\S+) (\S+)/IP:$1 Date:$2 Time:$3/;
   

复制代码

ziyunfei

1. #!/usr/bin/perl
   
2. while(<>){
   
3. s/:.*?ForwardIP//;
   
4. print;
   
5. }

复制代码

风吹不倒

回复 5# jason680


    额，不要随手就写阿

jason680

回复  jason680


    额，不要随手就写阿
风吹不倒 发表于 2011-03-17 09:55

好的....(已经改了)

亦请不要随便乱问(题意与后来需求不同...)

blackold

挤牙膏:

1. perl -ne 'print "$1 $2 Date: $3 Time: $4\n" if /(ClientIP:)(?:.*ForwardIP:)*([0-9.]+) +([^ ]+) +([^ ]+)/;' urfile

复制代码

风吹不倒

回复 9# blackold


    太棒了，要的就是这个效果，致敬！这么一看倒还简单~，我就没拐到这个思路上