lc 函数使用问题

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

1^# ly5066113 发表于 2008-08-15 09:33

lc 函数使用问题

$ echo '★㊣★★.ABc' | perl -ne 'print lc()'
★﹊★★.abc

在使用 lc 时，一些特殊字符也被转换了，如何能让 lc 只对字母处理，而不处理其他的呢？

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

2^# hfahe 发表于 2008-08-15 10:01

use utf8;

在ubuntu下

root@mx-yujie:~# perl -e "print lc('★㊣★★.ABc');"
★㊣★★.abc

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

3^# churchmice 发表于 2008-08-15 10:02

你也可以先用[a-zA-Z]进行判断

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

4^# ly5066113 发表于 2008-08-15 10:11

QUOTE:

原帖由 hfahe 于 2008-8-15 10:01 发表
use utf8;

在ubuntu下

root@mx-yujie:~# perl -e "print lc('★㊣★★.ABc');"
★㊣★★.abc

我这里就不可以呢。
$ echo '★㊣★★.ABc' | perl -ne 'use utf8;print lc()'
★﹊★★.abc

lc 受什么环境变量的影响？

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

5^# ly5066113 发表于 2008-08-15 10:12

QUOTE:

原帖由 churchmice 于 2008-8-15 10:02 发表
你也可以先用[a-zA-Z]进行判断

判断不了的，如果对整体判断，那没什么意义，如果一个字符一个字符判断，那个特殊字符的一半正好是一个大写字母。

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

6^# hfahe 发表于 2008-08-15 10:19

试试
perl -e 'use utf8;print lc("★㊣★★.ABc");'

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

7^# ly5066113 发表于 2008-08-15 10:37

QUOTE:

原帖由 hfahe 于 2008-8-15 10:19 发表
试试
perl -e 'use utf8;print lc("★㊣★★.ABc");'

$perl -e 'use utf8;print lc("★㊣★★.ABc");'
Malformed UTF-8 character (unexpected continuation byte 0xa1, with no preceding start byte) at -e line 1.
Malformed UTF-8 character (unexpected non-continuation byte 0x49, 1 byte after start byte 0xef, expected 3 bytes) at -e line 1.

cobrawgl

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

8^# cobrawgl 发表于 2008-08-15 11:46

use Encode;

$_ = '★㊣★★.ABc';

print encode('gbk', lc decode('gbk', $_));

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

9^# ly5066113 发表于 2008-08-15 12:41

QUOTE:

原帖由 cobrawgl 于 2008-8-15 11:46 发表
use Encode;

$_ = '★㊣★★.ABc';

print encode('gbk', lc decode('gbk', $_));

Thank you very much.