請(qǐng)問Perl能按字節(jié)和位處理文本嗎?有關(guān)半個(gè)漢字處理，請(qǐng)大家?guī)兔�看看程序問題在哪呢？

zhouhaiming

由于系統(tǒng)的問題，導(dǎo)出的文件中有許多漢字變成了半個(gè)字節(jié)，想去掉

文件有規(guī)律的，每個(gè)字段用Tab符做為分割符，行結(jié)束符為換行符，字段中有半個(gè)字節(jié)的編碼。

請(qǐng)教大家了

[ 本帖最后由 zhouhaiming 于 2008-5-7 08:54 編輯 ]

apile

perl也有index, seek, sysopen喔...
可以用C的作法去解決..

[ 本帖最后由 apile 于 2008-5-6 17:55 編輯 ]

zhouhaiming

open(FH1, "<C:\\dw_ar_cust_info_351001.out") or die("Cann't open this file"); open(FH2, ">C:\\dw_ar_cust_info_351001.out.zhm") or die("cann't open this file"); print "operation running\n"; while (<FH1>) { &nbsp;&nbsp;@data = (); &nbsp;&nbsp;@data = unpack("c*", $_); # 以有符號(hào)的方式解包到@array中 &nbsp;&nbsp;$length = $#data + 1; &nbsp;&nbsp;@tmpdata = (); &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;$loop = 0; &nbsp;&nbsp;for ( ; $loop<$length ; ) &nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;if (($data[$loop]>-128 && $data[$loop]<0))  # 第一個(gè)字節(jié)大于128，表明此為漢字的開始 &nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if ($data[$loop + 1] == 9) # 漢字開始的頭一個(gè)字節(jié)后面跟的是Tab符 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;push(@tmpdata, $data[$loop + 1]); # 把Tab符壓入棧中 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$loop = $loop + 2; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;next; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if ($data[$loop + 1] == 10) # 漢字開始后的字節(jié)馬上是換行符 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;push(@tmpdata, $data[$loop + 1]); # 把換行符壓入棧中 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;last; # 跳出循環(huán)，開始讀取下一行 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;if ($data[$loop] > -128 && $data[$loop] < 0) # 如果該字節(jié)為中文的開始 &nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if(($data[$loop + 1] > 64) || ($data[$loop + 1] > -128 && $data[$loop + 1] < 0)) # 與前一個(gè)字節(jié)構(gòu)成一個(gè)完整的漢字 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;push(@tmpdata, $data[$loop]); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;push(@tmpdata, $data[$loop + 1]); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$loop = $loop + 2; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;else # 合法的ASCII字符 &nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;push(@tmpdata, $data[$loop]); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$loop=$loop+1; &nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;} &nbsp;&nbsp; &nbsp;&nbsp;$output=pack("c*", @tmpdata); &nbsp;&nbsp;print FH2 $output; } print "operation success\n"; close(FH1); close(FH2);

zhouhaiming

上面的程序能夠處理一部分原來的文件,處理結(jié)果也是正確的,處理完20000多行后就不行了,進(jìn)入了死循環(huán),哪位朋友知道是怎么回事嗎?檢查了一晚上也沒查出來

apile

試著打印出..是從哪一行開始出問題....
檢查看看那一行是不是有什麼奇怪的char..造成無法判斷...

另外請(qǐng)多用my去宣告變量...

或加上

use strict;

與 #!/usr/bin/perl -w