问个简化正则的问题

风吹不倒

有如下数据，需要在脚本里处理

1. 192.168.1.1 2011-03-17 11:00:00 3.5 a
   
2. 192.168.1.2 2011-03-17 11:00:00 2.1 b
   
3. 192.168.1.3 2011-03-17 11:00:00 - c
   
4. 192.168.1.4 2011-03-17 11:00:00 1 d
   

复制代码

把第三行第四列的-替换成0
效果如下

1. IP=192.168.1.1 Date=2011-03-17 Time=11:00:00 UseTime=3.5
   
2. IP=192.168.1.2 Date=2011-03-17 Time=11:00:00 UseTime=2.1
   
3. IP=192.168.1.3 Date=2011-03-17 Time=11:00:00 UseTime=0
   
4. IP=192.168.1.4 Date=2011-03-17 Time=11:00:00 UseTime=1
   

复制代码

目前我用了2次正则得出结果，能不能用一行就得出？

1. s/-(\s+)/0$1/;
   
2. if (//) {
   
3.         print "";
   
4.         }

复制代码

珞水的大叔

这个勉强算一个正则表达式

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $lala;
   
6. while(<DATA>){
   
7.     s/^\s*(\S+\s+)(\S+\s+)(\S+\s+)(\S+)(?{ if($4 eq "-"){$lala = 0}else{$lala = $4} })(?:.*)$/IP=$1Date=$2Time=$3UseTime=$lala/;
   
8.     print;
   
9. }
   
10. 
    
11. __DATA__
    
12. 192.168.1.1 2011-03-17 11:00:00 3.5 a
    
13. 192.168.1.2 2011-03-17 11:00:00 2.1 b
    
14. 192.168.1.3 2011-03-17 11:00:00 - c
    
15. 192.168.1.4 2011-03-17 11:00:00 1 d

复制代码

jason680

有如下数据，需要在脚本里处理把第三行第四列的-替换成0
效果如下目前我用了2次正则得出结果，能不能用一行 ...
风吹不倒 发表于 2011-03-17 11:36

s/(\S+) (\S+) (\S+) (\S+).*/"IP=$1 Date=$2 Time=$3 UseTime=".($4+0)/e;

风吹不倒

回复 3# jason680


    很强大！学习了！

珞水的大叔

3楼的好，呵呵

Mr-Summer

+0编译器会优化吗，要不每次都运算一次会不会造成负担？