[解決]變量獲取剪切板の中文匹配問題

homedw

while 運(yùn)行失敗，抓不到內(nèi)容，用了正則測(cè)試工具，表示正則寫的沒問題啊�？梢宰ト〉絻�(nèi)容。好久沒用了，希望能幫助指正。

數(shù)據(jù)：

05:53:42        000578        青海百貨        賣出        200        31.100        2220.000        2140        2277        2340       
10:11:12        610000        浦發(fā)銀行        買入        400        1.550        3620.000        5213        6140        5313

1. #!/usr/bin/perl -w
   
2. use Win32::Clipboard;
   
3. 
   
4. $CLIP = Win32::Clipboard();
   
5. 
   
6. $file = $CLIP->Get();  #從剪切板獲取數(shù)據(jù)
   
7. 
   
8. @test = split/\n/,$file;
   
9. 
   
10. foreach $test(@test)
    
11. {
    
12.         while($test =~ /\d+:\d+:\d+\s+\d+\s+(\w+)\s+買入/gi)
    
13.         {
    
14.        
    
15.                 print $1;
    
16.         }
    
17.        
    
18. }
    

復(fù)制代碼

自己解決了

homedw

測(cè)試了下可能是漢字編碼的問題。