Chinaunix

标题: 如何让perl [打印本页]

---

作者: xiaomm250    时间: 2018-08-28 17:03
标题: 如何让perl
打开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    时间: 2018-08-31 09:23
在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    时间: 2018-12-10 14:11
回复 2# 523066680

这一点感觉没vim好

---

作者: 本友会机友会摄友会    时间: 2018-12-17 15:17
提示: 作者被禁止或删除 内容自动屏蔽

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2