perl在-T模式下匹配中文的问题(如何untaint含汉字的变量)

cnrainbow

做一个dms系统，在处理中文名时候，遇到一个问题。
我用如下的漂白函数漂白包含中文的变量时，无法通过。
  

sub UnTaint{
     my ($checkdir)=@_;
          if ($checkdir=~/^([-\/\@\w.\.\:;,\=]+)$/){
             my $windir=$1;
             return $windir;
             }
}


例：
my $a = "我爱北京天安门.txt";
$a = &UnTaing($a);
print $a;

此时$a=空了。


程序运行在-wT模式下，如果不对这些变量进行漂白就无法运行。
请组里的各位给一个解决办法。
只要能将包含中文的变量漂白即可。

apile

if ($checkdir=~/([\w\W]+)/){
my $windir=$1;
return $windir;
}

這樣就好啦....
把所有的code都包含了...

cnrainbow

万分感谢，我是这样搞的。
sub UTGB{
my ($checkdir)=@_;
if ($checkdir =~ /^([\S.]+)$/){
       my $windir=$1;
        return $windir;
    }
}

殊途同归，我们的想法是一样的，我对匹配的应用一直不太了解，这次是有了一点点的认识。
我们这样的做法虽然漂白了包含中文的变量，但是实际上-T模式的优点被我们抛弃了。
所以我只用这个函数untaint包含中文的变量，其他的字符变量还是用标准的方式来untaint.

感谢apile兄的帮助。