perl - 使用 perl PPI 在子程序中查找字符串

Question

这个问题与 How can I find all the methods that contain a specific string within a Perl codeset? 松散相关.

在解决这个问题时，Hakon 有用地建议我查看 PPI .

PPI 引起了我的兴趣，作为一项学习练习，我一直在尝试使用它来传递文件并在文件中查找包含特定字符串的方法。

PPI 很大且功能丰富，我一直坚持在子程序中搜索的最佳方式。我对 PDOM 的理解以及查找字符串的最佳方法都被困住了

到目前为止，我有:

#The file to parse
open(my $fh, '<:encoding(UTF-8)', $filename)
    or die "Could not open file '$filename' $!";

#Read in the entire file (they're not that large).
my $src = do { local $/; <$fh> };

# Load a document
my $doc = PPI::Document->new( \$src );
my $subs_ref = $doc->find( sub { $_[1]->isa('PPI::Statement::Sub') });

#Test I actually have the subs print their names...
my @sub_names = map { $_->name } @$subs_ref;
warn "@sub_names";

# This is where I get stuck.  Do I now use PPI::Find?
my $result = $subs_ref->find( \&wanted ); #What does wanted contain?

#I can see I now have PDOM objects created for individual subroutines within file   
my $sub = $subs_ref->[0];
warn "name is " . $sub->name;
warn Dumper $sub;

使用上面的我可以看到我已经解析了文件并且可以访问文件中每个子例程的 PDOM 对象。

PDOM 对象的示例如下所示:

$VAR1 = bless( {
                 'children' => [
                                 bless( {
                                          'content' => 'sub'
                                        }, 'PPI::Token::Word' ),
                                 bless( {
                                          'content' => ' '
                                        }, 'PPI::Token::Whitespace' ),
                                 bless( {
                                          'content' => 'Welcome'
                                        }, 'PPI::Token::Word' ),
                                 bless( {
                                          'content' => ' '
                                        }, 'PPI::Token::Whitespace' ),
                                 bless( {
                                          'finish' => bless( {
                                                               'content' => '}'
                                                             }, 'PPI::Token::Structure' ),
                                          'start' => bless( {
                                                              'content' => '{'
                                                            }, 'PPI::Token::Structure' ),
                                          'children' => [

我正在搜索可能包含在双引号或单引号中的字符串。例如:

bless( {
'separator' => '"',
'content' => '"signup/welcome_$user_type"'
}, 'PPI::Token::Quote::Double' ),

我的问题:
在 $subs_ref->[i] 中搜索“注册/欢迎”的最佳方法是什么？我是使用 PPI::Find (如果是，你能给我举个例子吗？)还是有更好的方法？

Answer 1

您可以尝试遍历所有 PPI::Token::Quote::Double对于每个子程序使用例如:

my @result = map {[ $_->name, $_->find( 'PPI::Token::Quote::Double' )] } @$subs_ref;

for my $elem (@result) {
    say $elem->[0];
    my $found = 0;
    for my $node ( @{$elem->[1]} ) {
        my $str = $node->content;
        $found = 1 if $str =~ "signup/welcome";
    }
    say "-->" . ($found ? "found" : "not found");
}