如何把一个txt文档中的所有全角字符转换成半角？？？

hcduguo

内容是中文加数字、字母、标点！
我试着转换了一下，部分会出现乱码！不知道什么原因！
如转换前：
番禺西环路约４０００?营业中酒楼带豪华装修有大型停车场，水电、消防、证照齐，可分租。电１３０１６０８２２９７
转换后：
番禺西环路约4000?营业中酒楼带豪华装修有大型?党。??纭⑾?馈⒅ふ掌耄?煞肿狻5?3016082297

我只是用一个函数转换了一下数字
sub ReplaceNumber{
        my($adstr)=@_;
        $adstr=~s/０/0/g;
        $adstr=~s/１/1/g;
        $adstr=~s/２/2/g;
        $adstr=~s/３/3/g;
        $adstr=~s/４/4/g;
        $adstr=~s/５/5/g;
        $adstr=~s/６/6/g;
        $adstr=~s/７/7/g;
        $adstr=~s/８/8/g;
        $adstr=~s/９/9/g;
        return $adstr;
}
这是什么问题，高手指点一下！

hcduguo

高手们都去哪儿了？

flw

在程序开头加上：

1. use encoding 'gbk';

复制代码

如果这么做会影像程序的其它部分的正常运行的话，那就先 decode 成 utf8，然后再替换，替换后再 encode 成 gbk

hcduguo

不行啊！加上use encoding 'gbk';根本不替换！

flw

原帖由 hcduguo 于 2007-3-3 11:03 发表
不行啊！加上use encoding 'gbk';根本不替换！

那就是人品问题了。
我这里是可以的。

大大狗

我这也可以

hcduguo

#!/usr/bin/perl
use encoding 'gbk';

open fh,"ae.txt";
while (<fh>) {
        my $line=ReplaceNumber($_);
        print "$line\n";
}
close(fh);
sub ReplaceNumber{
        my($adstr)=@_;
        $adstr=~s/０/0/g;
        $adstr=~s/１/1/g;
        $adstr=~s/２/2/g;
        $adstr=~s/３/3/g;
        $adstr=~s/４/4/g;
        $adstr=~s/５/5/g;
        $adstr=~s/６/6/g;
        $adstr=~s/７/7/g;
        $adstr=~s/８/8/g;
        $adstr=~s/９/9/g;
        return $adstr;
}

ae.txt
番禺西环路约４０００?营业中酒楼带豪华装修有大型停车场，水电、消防、证照齐，可分租。电１３０１６０８２２９７

flw

原帖由 hcduguo 于 2007-3-5 09:49 发表
#!/usr/bin/perl
use encoding 'gbk';

open fh,"ae.txt";
while (<fh>) {
        my $line=ReplaceNumber($_);
        print "$line\n";
}
close(fh);
sub ReplaceNumber{
        my($adstr)= ...

binmode fh, ":encoding(gbk)";
楼主有空看看这个吧：
http://svn.perlchina.org/trunk/P ... /CN/perlopentut.pod
还有《提问的智慧》

hcduguo

你太有才了！多谢指教！