Comments on: Perl with UTF-8 mode

By: maniac

maniac — Mon, 19 Mar 2007 03:52:21 +0000

也可以用 use encoding 叫 perl 把之後的編碼全視做 big5...

$ cat test.pl
#!/usr/bin/perl -w
# Source encoded in big5.
use encoding big5;
my $s = '英雄人物';
if ($s =~ m/英/o) {
print "是我\n";
}
else {
print "不是我\n";
}

$ perl test.pl
是我

By: 莉洛

莉洛 — Sun, 12 Feb 2006 08:48:52 +0000

#!/usr/bin/perl -w
# Source encoded in big5.
my $s = '英雄人物';
if ($s =~ m/\Q英\E/o) {
print "是我n";
}
else {
print "不是我n";
}

By: jeffhung

jeffhung — Tue, 17 Jan 2006 09:19:47 +0000

William,

十分感謝，確實是個好方法，且少掉了多次 big5 <=> utf8 轉碼，程式應該會更有效率些。

By: william

william — Tue, 17 Jan 2006 08:51:35 +0000

換到 utf8 雖然是個不錯的主意，不過即使留在 big5 陣營，第一段程式仍然有解。只要善用 Perl 的 quotemeta()，就不必自己弄一堆醜醜的十六進位碼：

#!/usr/bin/perl -w

# Source encoded in big5.

my $s = '英雄人物';

my $regex = quotemeta('英');

if ($s =~ m/$regex/o) {

    print "是我\n";

}

else {

    print "不是我\n";

}

By: PipperL

PipperL — Tue, 10 Jan 2006 16:32:10 +0000

說明得實在太詳細了，大感謝! :D

By: 阿司卡程思筆記

阿司卡程思筆記 — Tue, 30 Nov 1999 00:00:00 +0000

Perl with UTF-8 mode [JeffHung.Blog]

By: Perl笔记

Perl笔记 — Tue, 30 Nov 1999 00:00:00 +0000

Perl with UTF-8 mode Parsing a Querystring With Perl - A Simple ISINDEX Query (Page 2 of 3 ) What’s in a User-Agent String?