如何让perl

xiaomm250

打开perl的命令行输入
perl -d -e 42进入调试模式
x ("张三丰"=~m/张..$/)
这个命令显示空数组，也就是不匹配
x ("张三丰"=~m/张../)
这个命令显示成功，也就是匹配，问题的关键是汉字好像占有不是一个小数点，
如何让"张三丰"=~m/张..$/
匹配成功，

也就是一个小数点能匹配一个汉字,
如何才能做到?

1. 打开perl的命令行输入
   
2. perl -d -e 42
   
3. 进入调试模式
   
4. x ("张三丰"=~m/张..$/)
   
5. 这个命令显示空数组，也就是不匹配
   
6. x ("张三丰"=~m/张../)
   
7. 这个命令显示成功，也就是匹配，问题的关键是汉字好像占有不是一个小数点，
   
8. 如何让
   
9. "张三丰"=~m/张..$/
   
10. 匹配成功，
    
11. 
    
12. 也就是一个小数点能匹配一个汉字,
    
13. 如何才能做到?

复制代码

523066680

在windows命令行，采用的是GBK编码，汉字在GBK编码中占用两个字节。也就是两个点可以匹配一个汉字。

想要一个点匹配一个汉字，就改为Unicode编码

1.   DB<1> use Encode;
   
2. 
   
3.   DB<2> $DB::str = decode('gbk', "张三丰");
   
4. 
   
5.   DB<3> $DB::s = decode('gbk', "张");
   
6. 
   
7.   DB<4> x ($DB::str=~/${DB::s}../)
   
8. 0  1

复制代码

xiaomm250

回复 2# 523066680

这一点感觉没vim好