5

我对 PPI 模块有一些问题:

假设我有 Foo.pm:

package Foo;

sub foo0 { 1; }
sub foo1 { 1; }
sub foo2 { 1; }
sub foo3 { 1; }

1;

我想使用 PPI 来获取所有潜艇:

#!/usr/bin/env perl
use PPI;
my $filename = shift;
my $Document = PPI::Document->new($filename);
my $subs = $Document->find('PPI::Statement::Sub');
warn $#$subs;

结果我得到了'3',这是正确的。

但是当我在 Foo.pm 中的一个潜艇被称为“sub vN ...”时,其中 N 是一个数字,fe:

sub v1foo {}

或者

sub v3bar {}

或者干脆

sub v2 {}

PPI::Document find 似乎破坏了解析并仅返回已找到的子项。因此,如果我修改 Foo:

package Foo;

sub foo0 { 1; }
sub foo1 { 1; }
sub v2xx { 1; }
sub foo3 { 1; }

1;

我的测试结果将是“1”(发现潜艇是 foo0 和 foo1)

是否以某种方式禁止声明像 v[0..9] 这样的子例程名称?

问候。

4

1 回答 1

5

这是一个(未知)错误。

它与“v-numbers”或“version numbers”的概念有关。

v 编号类似于 v1.2.3 并解析为 PPI::Token::Number::Version 对象。

您看到的问题是解析发现“v,digit,...”,将其解析为 v 编号,然后在其后的字符处开始下一个标记(它不应该这样做)。

此外,在 sub v1 { } 情况下,v1 应该被解析为子例程名称“v1”而不是 v 编号。

您应该在https://rt.cpan.org/Public/Dist/Display.html?Name=PPI报告此 PPI 错误跟踪器

于 2012-01-30T11:45:16.207 回答