文本处理,求助大神

moperyblue

1. sed -r '/，/s/(\S+)\b\s+([^，]+)，/\1 \2\n\1 /;P;D' urfile

复制代码

moperyblue

http://bbs.chinaunix.net/thread-4266486-2-1.html
这个搞定了?

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. while(<DATA>){
   
6.         map { my @a = @$_; print("$a[0]\t$_\n") for @a[1 .. $#a] } [/[-a-z\d]+/g];
   
7. }
   
8. 
   
9. __DATA__
   
10. aaaa        7-9，10-12
    
11. aaaa        19-21，22-24
    
12. aaaa        25-27，28-30
    
13. aaaa        61-63
    
14. bbbb        77-84，85-92
    
15. bbbb        93-100，101-108
    
16. bbbb        135-137
    
17. bbbb        138-140
    
18. bbbb        141-143
    
19. cccc        15-17
    
20. ddddd        31-34
    
21. zzzzzz        21-30，31-40
    
22. zzzzzz        41-45，46-50
    
23. zzzzzz        66-70
    

复制代码