我遇到了一些奇怪的Perl行为：在
regexp中使用Posix字符类完全改变了结果字符串的排序顺序.
这是我的测试程序：
sub namecmp($a,$b) {
$a=~/([:alpha:]*)/;
# $a=~/([a-z]*)/;
$aword= $1;
$b=~/([:alpha:]*)/;
# $b=~/([a-z]*)/;
$bword= $1;
return $aword cmp $bword;
};
$_= <>;
@names= sort namecmp split;
print join(" ",@names),"\n";
如果使用[a-z]更改为注释掉的正则表达式,则会获得正常的词典排序顺序.但是,Posix [：alpha：]字符类会产生一些怪异的排序顺序,如下所示：
$test_normal aaa aab aac aba abb abc aca acb acc baa bab bac bba bbb bbc bca bcb bcc caa cbb aaa aab aac aba abb abc aca acb acc baa bab bac bba bbb bbc bca bcb bcc caa cbb $test_posix aaa aab aac aba abb abc aca acb acc baa bab bac bba bbb bbc bca bcb bcc caa cbb baa bab bac bba bbb bbc bca bcb bcc caa cbb aba abb abc aca acb acc aab aac aaa
我最好的猜测是Posix角色类正在激活我从未听说过并且没有要求的某种语言环境.我想对“医生,医生,当我这样做时会疼！”的逻辑反应.是,“好吧,不要那样做,然后！”.
但是,谁能告诉我这里发生了什么,为什么？我使用的是perl 5.10,但我相信它也适用于perl 5.8.
字符类[：alpha：]表示Perl正则表达式中的字母字符,但方括号并不代表它们在正则表达式中通常执行的操作.所以你需要：
$a=~/([[:alpha:]]*)/;
这在perlre中提到：
The POSIX character class Syntax
06001
is also available. Note that the
[and]brackets are literal; they must always be used within a character class expression.
# this is correct: $string =~ /[[:alpha:]]/; # this is not,and will generate a warning: $string =~ /[:alpha:]/;
