求助：全角半角之间的转换。

guoqigang

UID: 45020
帖子: 176
积分: 404
在线时间: 1 天 18 小时

1^# guoqigang 发表于 2007-10-02 14:33

求助：全角半角之间的转换。

由文档中读取得字符，怎样将其全角字符转化为半角？
谢谢

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

2^# Lonki 发表于 2007-10-02 15:51

# 全角字符第一字节 = 163(0xA3), 第二字节为对应半角字符 + 128
# 全角中文第一字节 > 163
my $str = '０１９ＡａＢｂＹｙＺｚ＼＂，．？＜＞｛｝［］＊＆＾％＃＠！～（）＋－｜：；';
print "$str\n";
$str =~ s/\x{A3}(.)/chr(ord($1) - 128)/eg;
print "$str\n";

### 运行结果 ###
０１９ＡａＢｂＹｙＺｚ＼＂，．？＜＞｛｝［］＊＆＾％＃＠！～（）＋－｜：；
019AaBbYyZz\",.?<>{}[]*&^%#@!～()+-|:;

guoqigang

UID: 45020
帖子: 176
积分: 404
在线时间: 1 天 18 小时

3^# guoqigang 发表于 2007-10-02 17:54

这样写，执行一次没有问题，但是不知道为什么，当在for循环里面多次执行的情况下就直接报错了
谢谢

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

4^# Lonki 发表于 2007-10-02 19:37

QUOTE:

原帖由 guoqigang 于 2007-10-2 17:54 发表
这样写，执行一次没有问题，但是不知道为什么，当在for循环里面多次执行的情况下就直接报错了
谢谢

上你的Code.

lokchungk

UID: 6618
帖子: 74
积分: 170
在线时间: 7 小时

5^# lokchungk 发表于 2007-10-04 13:17

PerlDoc