文本拼接2222

zxy877298415

回复 1# ma3501406


awk '/，/{sub("-.*-","n",$0)}1' file

关阴月飞

1. awk  '{sub(/-.*，.*-/,"n",$2)}1'   urfile

复制代码

mwl940602

sed -r ' s/-([^,]+,)/n\1/' file

1cpuer

回复 3# 关阴月飞

{}1
1 作何解释

1cpuer

回复 4# mwl940602

# sed -r ' s/-([^,]*)-/n/' atdo
aaa                35-38
fffff        68n80
fffff        101-105      
fffff        106-110      
kkkk        35-37      
kkkk        38-40      
77777        1-8      
77777        9-16      
77777        39-40      
77777        41-42      
77777        43-44      
77777        45-46      
2222        25n28

关阴月飞

回复 5# 1cpuer

1 =>  1{print $0}  => if(1){print $0}  => {print $0}

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. while(<DATA>){
   
6.         y/，//d and s/-.*-/n/;
   
7.         print;
   
8. }
   
9. 
   
10. __DATA__
    
11. aaa                35-38
    
12. fffff        68-71，72-75，76-80
    
13. fffff        101-105      
    
14. fffff        106-110      
    
15. kkkk        35-37      
    
16. kkkk        38-40      
    
17. 77777        1-8      
    
18. 77777        9-16      
    
19. 77777        39-40      
    
20. 77777        41-42      
    
21. 77777        43-44      
    
22. 77777        45-46      
    
23. 2222        25-26，27-28
    

复制代码

moperyblue

1. sed 's/-.*-/n/'

复制代码

wh7211

回复 1# ma3501406

1. awk '{y="^([^-]+)-.*,.*-([^-]+)$";match($2,y,a);$2=a[1]?a[1]"n"a[2]:$2}1' file

复制代码