求助：每一行中間加-> 末尾加;

zhongyi0417

原文本文件如下（部分）：
6 2042
6 2005
6 2004
6 1995
20 1995
97 2072
152 2120
164 2120
97 2042
97 2041
要處理成如下：
6-> 2042;
6-> 2005;
6 ->2004;
6 ->1995;
20 ->1995;
97 ->2072;
152 ->2120;
164 ->2120;
97 ->2042;
97 ->2041;
自己打算用替換正則表達式，試來試去也不成，不知道哪里出問題。希望大家能幫助一下，謝謝！

rubyish

試試:

1. while(<DATA>){
   
2.     s/(\d+)\s(\d+)/$1 -> $2;/;
   
3.     print;
   
4. }
   
5. 
   
6. __DATA__
   
7. 6 2042
   
8. 6 2005
   
9. 6 2004
   
10. 6 1995
    
11. 20 1995
    
12. 97 2072
    
13. 152 2120
    
14. 164 2120
    
15. 97 2042
    
16. 97 2041
    

復(fù)制代碼

羲之遺韻

學(xué)習(xí)了!

yinyuemi

回復(fù) 1# zhongyi0417


    perl -npe 's/\s+/ -> /;s/$/;/'

多謝kk861123指正

kk861123

yinyuemi 發(fā)表于 2011-12-27 10:22
回復(fù) 1# zhongyi0417

還缺了個';' 再來一次

1. s/$/;/;

復(fù)制代碼

yinyuemi

回復(fù) 5# kk861123

呵呵，恩，沒看到
   

zhongyi0417

多謝各位了。二樓的方法也可以。處理的是一個文本文件，名為a.txt，我寫的代碼最后如下：
open(F, "D:\\a.txt") || die "open: $!";
while(<F>){
   s/(\d+)\s(\d+)/$1 -> $2;/;
  print;
}