我遇到了一些奇怪的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:]/;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。