0

我有以下正则表达式来检查 XML 元素名称。

my $NameStartChar = ':A-Z_a-z\x{C0}-\x{D6}\x{D8}-\x{F6}\x{F8}-\x{2FF}\x{0370}-\x{037D}\x{37F}-\x{1FFF}\x{200C}-\x{200D}\x{2070}-\x{218F}\x{2C00}-\x{2FEF}\x{3001}-\x{D7FF}\x{F900}-\x{FDCF}\x{FDF0}-\x{FFFD}\x{10000}-\x{EFFFF}';
my $NameChar = ':A-Z_a-z\x{C0}-\x{D6}\x{D8}-\x{F6}\x{F8}-\x{2FF}\x{370}-\x{37D}\x{37F}-\x{1FFF}\x{200C}-\x{200D}\x{2070}-\x{218F}\x{2C00}-\x{2FEF}\x{3001}-\x{D7FF}\x{F900}-\x{FDCF}\x{FDF0}-\x{FFFD}\x{10000}-\x{EFFFF}\-\.0-9\x{B7}\x{0300}-\x{036F}\x{203F}-\x{2040}';

sub checkXmlName ($)
# Check if input is valid XML name
# $arg - Input string
# $ret - Boolean of validity
{
    if ($_[0] =~ m/^[$NameStartChar]([$NameChar])*$/)
    {    return 1;    }
    else
    {    return "";    }
}

if (checkXmlName("foo"))
{
    print STDOUT "OK";
}

这给出了方便的错误

Invalid [] range "\x{F8}-\x{2FF}" in regex; marked by <-- HERE in m/^[:A-Z_a-z\x{C0}-\x{D6}\x{D8}-\x{F6}\x{F8}-\x{2FF} <-- HERE

在 Perl 5.16.2 上，我使用\N{U+2FF}的是字符形式。但我必须使用 5.8.8。

编辑：将 qw 更改为未更改错误的 qr。并添加Unicode character 0xeffff is illegal at ...

编辑：来自 ikegami 评论删除了 qr/ 从而消除了非法字符错误。

4

1 回答 1

2

[\x{F8}-\x{2FF}]应该可以工作，所以这是 Perl 中的一个错误。

[\x{F8}-\x{2FF}]确实在较新版本的 Perl 中工作，所以这个错误已被修复。

看起来正则表达式引擎在从单字节字符到更大字符的范围方面存在问题，所以你为什么不尝试将范围分成两个。

[\x{F8}-\x{FF}\x{100}-\x{2FF}]
于 2013-03-11T20:39:35.510 回答