為什麼「區」字 grep 不出來？

Beta

[PHP]@char = ("區eo1","區ngeo1","區kwu1","別bid3","別bid6");
$wordchar1 = "區";
$wordchar2 = "別";
@n1 = grep (/$wordchar1/, @char);
@n2 = grep (/$wordchar2/, @char);
print @n1;
print @n2;[/PHP]

執行此腳本，發現 @n1 為空（此時@n1本應該為 ("區eo1","區ngeo1","區kwu1") 的），@n2 正常得到("別bid3","別bid6")。
真是奇怪了，不知道什麼原因。

我的perl版本是 ActivePerl-5.8.8.817-MSWin32-x86-257965

Nameless

貌似你碰到编码问题了

2. @char = ("區eo1","區ngeo1","區kwu1","別bid3","別bid6");
3. $wordchar1 = quotemeta "區";
4. $wordchar2 = quotemeta "別";
5. @n1 = grep (/$wordchar1/, @char);
6. @n2 = grep (/$wordchar2/, @char);
7. print @n1;
8. print @n2;

复制代码