大神請進,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]