作者littleshan (我要加入剑道社!)
看板perl
标题Re: [问题] 特殊的中文字
时间Tue Sep 9 12:17:54 2003
试试
use utf8;
open (SRC, "test.txt");
binmode (SRC, ":encoding(big5)")
binmode (SRC, ":encoding(big5)")
这样子你就不需要encode和decode
※ 引述《irenec (nickname)》之铭言：
: ※ 引述《littleshan (我要加入剑道社!)》之铭言：
: : 转成utf8...是个方法
: 我做了这样的测试:
: use Encode;
: use Text::ParseWords;
: open (SRC,"test.txt");
: while(<SRC>){
: chomp;
: $data = encode("utf8", $_);
: @words = &parse_line('\,', 0, $data);
: foreach(@words){
: $output = decode("utf8", $_);
: print "$_\n";
$_的内容似乎是utf8 encoding
: }
: }
: close(SRC);
: 结果还是乱码... 是不是哪里错了 ?!
: : 不晓得你想要做怎样的处理?
: 把CSV解成ARRAY後, 做一些格式判断(RE), 然後塞入资料库
: 目前的状况是做到CSV解开就卡住了.. >"<
--
--
※ 发信站: 批踢踢实业坊(ptt.csie.ntu.edu.tw)
◆ From: 140.112.244.211