grep 函數奇怪的問題

Beta

以下perl腳本
[PHP]
$file4 = "臨時.txt";
$file3 = "字.txt";
open (FILE3, "$file3") || die "打不開文檔“$file3”！";
open (FILE4, ">$file4") || die "無法創建文檔“$file4”！";
select FILE4;

@zf = <FILE3>;

# $sch = $zf[0];
# $sch = substr ($sch,0,6);    # 「字.txt」為UTF-8碼，此處取6剛剛好得到一個漢字，此步應該得到「啊」。

$sch = "ang";

@biet = grep (/$sch/, @zf);
print @biet;
[/PHP]
該腳本grep函數搜索「字.txt」，可以得到如下預期結果：

1. 
   
2. 厊ang1
   
3. 吧bang1
   
4. 啊ang1
   

复制代码

但是，奇怪的是，以下腳本

[PHP]
$file4 = "臨時.txt";
$file3 = "字.txt";
open (FILE3, "$file3") || die "打不開文檔“$file3”！";
open (FILE4, ">$file4") || die "無法創建文檔“$file4”！";
select FILE4;

@zf = <FILE3>;

$sch = $zf[0];
$sch = substr ($sch,0,6);   # 「字.txt」為UTF-8碼，此處取6剛剛好得到一個漢字，此步應該得到「啊」。

# $sch = "ang";

@biet = grep (/$sch/, @zf);
print @biet;
[/PHP]

卻只能搜到「字.txt」的第一行，得不到預期結果：

1. 
   
2. 啊a1
   

复制代码

預期結果應該是：

1. 
   
2. 啊a1
   
3. 啊b1
   
4. 啊a2
   
5. 啊ang1
   

复制代码

真是奇怪了，百思不得其解，究竟是怎麼回是呢？
grep 只搜索了「字.txt」的第一行，其他行均被忽略了。證明方法是，在
$sch = substr ($sch,0,6);
後加一行：
$sch = "$sch"."b";
這樣本來應該搜索得到「字.txt」第二行「啊b1」，但結果什麼都搜不出。因為第一行是「啊a1」，grep只搜了第一行。

Beta

我明白了
@zf = <FILE3>;
這 @zf 的第一個元素有問題！
shift @zf; 後，再將 $sch = substr ($sch,0,6); 改為 $sch = substr ($sch,0,3); 就正常了。
UTF-8 一個漢字三字節。

mikespook

UTF-8编码中中文为2~3个字节，并不一定完全是2个字节或3个字节～～

后面修改的这个代码，部分中文有效，部分可能也还是有问题～～