PerlのソースコードからStringだけ探して標準出力に表示する

perl_string_ranking.pl

# perl perl_string_ranking.pl ~/co/Plack/lib/**/**.pm | sort | uniq -c | sort -n -k 1
# Stringリテラルだけ出力する
# sortすると重複を探すときに使える予定

use strict;
use warnings;
use PPI;
use Perl6::Say;

sub parse {
    my ($file) = @_;
    warn $file;
    my $document = PPI::Document->new($file);
    my $tokens = $document->find('PPI::Token::Quote');

    return unless $tokens;

    map {
        $_->content;
    } @$tokens;
}

for my $file (@ARGV) {
    for my $token (parse($file)) {
        $token =~ s/\s+/ /g;
        say $token;
    }
}