如何讓perl

xiaomm250

打開perl的命令行輸入
perl -d -e 42進(jìn)入調(diào)試模式
x ("張三豐"=~m/張..$/)
這個(gè)命令顯示空數(shù)組，也就是不匹配
x ("張三豐"=~m/張../)
這個(gè)命令顯示成功，也就是匹配，問題的關(guān)鍵是漢字好像占有不是一個(gè)小數(shù)點(diǎn)，
如何讓"張三豐"=~m/張..$/
匹配成功，

也就是一個(gè)小數(shù)點(diǎn)能匹配一個(gè)漢字,
如何才能做到?

1. 打開perl的命令行輸入
   
2. perl -d -e 42
   
3. 進(jìn)入調(diào)試模式
   
4. x ("張三豐"=~m/張..$/)
   
5. 這個(gè)命令顯示空數(shù)組，也就是不匹配
   
6. x ("張三豐"=~m/張../)
   
7. 這個(gè)命令顯示成功，也就是匹配，問題的關(guān)鍵是漢字好像占有不是一個(gè)小數(shù)點(diǎn)，
   
8. 如何讓
   
9. "張三豐"=~m/張..$/
   
10. 匹配成功，
    
11. 
    
12. 也就是一個(gè)小數(shù)點(diǎn)能匹配一個(gè)漢字,
    
13. 如何才能做到?

復(fù)制代碼

523066680

在windows命令行，采用的是GBK編碼，漢字在GBK編碼中占用兩個(gè)字節(jié)。也就是兩個(gè)點(diǎn)可以匹配一個(gè)漢字。

想要一個(gè)點(diǎn)匹配一個(gè)漢字，就改為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

復(fù)制代碼

xiaomm250

回復(fù) 2# 523066680

這一點(diǎn)感覺沒vim好