[解决]变量获取剪切板の中文匹配问题

homedw

while 运行失败，抓不到内容，用了正则测试工具，表示正则写的没问题啊。可以抓取到内容。好久没用了，希望能帮助指正。

数据：

05:53:42        000578        青海百货        卖出        200        31.100        2220.000        2140        2277        2340       
10:11:12        610000        浦发银行        买入        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();  #从剪切板获取数据
   
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. }
    

复制代码

自己解决了

homedw

测试了下可能是汉字编码的问题。