ultraedit中用perl 脚本实现如下替换，在线等

emlin129

如何将
address [a-z A-Z 和-]212.224.254.0 mask 24  
替换成

address 212.224.254.0 mask 24  

比如有这些行
address be_mobistar-212.224.254.0 mask 24  
address be_base-217.72.232.0 mask 24  


[a-z A-Z 和-] 中的字符长度不限，大小写不限 级带- 字符

emlin129

没人搞定吗？

浅浅的墨伤

其实我连需求都没太看懂……

yakczh_cu

1. use 5.01;
   
2. 
   
3. 
   
4. while(<DATA>){
   
5.    
   
6.    
   
7.    s/\s.*-/ /;
   
8.    
   
9.     say $_;
   
10.    
    
11. }
    
12. 
    
13. __DATA__
    
14. 
    
15. address be_mobistar-212.224.254.0 mask 24  
    
16. address be_base-217.72.232.0 mask 24  

复制代码

zhlong8

你这可比 4，5，2，5，5，9，？ 下一个数字是多少要难多了

emlin129

做一个替换，人工替换效率太低，就像看看perl能否搞定，看了半天的perl的正则表达式还没有搞定

@yakczh_cu  没看懂你写的，是不是要把文本读取了，然后通过perl执行你写的regex吗？

多谢各位的解答！

yakczh_cu

回复 6# emlin129

按你理解的方式

1. 
   
2. perl -n -e  "s/\s.*-/ /;print " your_input.txt
   

复制代码

zhlong8

楼主断下句啊，稍微给你编辑了一下。花了24个小时才明白你不是想把一行变三行

sunzhiguolu

楼主表达的意思比较深奥啊, 没看懂...

stanley_tam

来一发，貌似就是一正则表达
用法：perl sample.pl  your_text.txt

1. #!perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. $^I = '.bak';
   
6. 
   
7. while (<>) {
   
8.     $_ =~ s{(?<=address\s) [\w]+ -}{}x;
   
9.     print;
   
10. }
    
11. 
    
12. __END__

复制代码