antlr-3.4/runtime/Perl5/examples/tweak/tweak.pl

#!perl

use strict;
use warnings;

use ANTLR::Runtime::ANTLRFileStream;
use ANTLR::Runtime::TokenRewriteStream;
use TLexer;
use TParser;

my $input = ANTLR::Runtime::ANTLRFileStream->new({ file_name => $ARGV[0] });
my $lexer = TLexer->new({ input => $input });
my $tokens = ANTLR::Runtime::TokenRewriteStream({ token_source => $lexer });
my $parser = TParser->new({ input => $tokens });
$parser->program();
print "$tokens\n";