Simple command line interface for PPI (Perl Parsing Interface)

ppi.pl

#!/usr/bin/env perl

use v5.12.0;

use Getopt::Long;
use File::Next;
use PPI;

my ($match, $content) = qw(Element content);
my ($count, $verbose);

GetOptions(
    "match=s"   => \$match,
    "content=s" => \$content,
    "count!"    => \$count,
    "verbose!"  => \$verbose,
);

my $matches;

my $files = File::Next::files( @ARGV );
while(defined( my $file = $files->() )) {
    next unless $file =~ /\.(?:pm|pl|t)$/;

    my $doc = PPI::Document->new( $file, readonly => 1 )
        or next;

    for my $elem ( @{$doc->find($match) || []} ) {
        $matches++;
        
        next unless $elem->can($content);
        say (($verbose ? "$file:" . $elem->line_number . ": " : ""), $elem->$content) unless $count;
    }
}

say "$matches matches" if $count;