大神请进,perl 匹配全角日文

L_WC

1. 
   
2. 
   
3. my $input = <STDIN>;
   
4. 
   
5. chomp $input;
   
6. 
   
7. print "反映処理結果:\n";
   
8. 
   
9. if ($input =~ m/[^\w-\d\s]+/)
   
10. {
    
11.         print "OK";
    
12. }
    
13. 
    
14. 
    

复制代码

各位大神,这个全角日文怎么写. 多谢了.

同时要保证, print "反映処理結果:\n";  不会出现wide char 警告.

legs

如果不区分中文、日文等，可以匹配非ASCII
[^\x00-\xFF]