note
nagalenoj
Back into perlmonks after a long time. :)
<p>Seems interesting. Since you don't want the order to be changed, I think you can try with PPI.</p>
<p>Here is a sample code, which I tried. You can make it better for your use.</p>
<code>
use PPI;
my $ds = PPI::Document->new('sample_config.pl');
for my $sub ( @{ $ds->find('PPI::Statement::Expression') || [] } ) {
my $Tokenizer = PPI::Tokenizer->new( \$sub );
while ( my $Token = $Tokenizer->get_token ) {
print "Found token '$Token'\n" if ( $Token =~ /\w+/ );
}
print "---------------------------------------------\n"
}
</code>
<p>Hope it helps. Thanks.</p>
1002862
1002862