Perl 脚本停止。错误：找不到 unicode 属性定义 ASCII

Question

我继承了一些 perl 脚本。 （我不是 Perl 程序员）。

我在下面一行中看到错误 “找不到 unicode 属性定义 ascii”

$value =~ s/[^[:\p{ascii}]]//g 

此错误会导致程序执行停止吗？因为这是程序停止之前打印的最后一行。

在放弃之前，同一条线路已经运行了 1000 多次。问题可能是什么？

我倾向于认为 $value 的值并不是导致问题的原因。 我说得对吗？

在我看来，好像 {ascii} 已从 unicode 定义中删除。这可以做到还是我完全找错了树？

Answer 1

在我看来， ascii 必须是大写 ASCII

$value =~ s/[^\p{ASCII}]//g 

用 \p{ascii} 进行测试：

#> cat test.pl
#!/usr/bin/perl
my $str = q/☺ùùabvcedhkè ég"/;
$str =~ s/[^\p{ascii}]//g;
print $str,"\n";

#> perl test.pl
Can't find Unicode property definition "ascii" at test.pl line 3.

用 \p{ASCII} 进行测试：

cat test.pl
#!/usr/bin/perl
my $str = q/☺ùùabvcedhkè ég"/;
$str =~ s/[^\p{ASCII}]//g;
print $str,"\n";

#> perl test.pl
abvcedhk g"