perl tips
时间：2007-04-03 来源：chinaunixuser
1. Match chinese characters
my $chinese= q{
[\x81-\xA0][\x40-\xFE]
| [\xB0-\xF7][\xA1-\xFE]
| [\xAA-\xFE][\x40-\xA0]
};
if (m/($chinese)/xo);
只执行一次变量替换例(o选项)
将字符串看作单行例(s选项)
在模式中忽略空格(x选项)
2. File::Find
find(\&checkdbc,$guidir);
callback function "checkdbc" work in folder "guidir"
相关阅读 更多 +
