File: sample.pl

package info (click to toggle)
libcompiler-lexer-perl 0.23-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 612 kB
  • sloc: cpp: 5,127; perl: 1,167; makefile: 3
file content (13 lines) | stat: -rw-r--r-- 408 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
use strict;
use warnings;
use Compiler::Lexer;
use Data::Dumper;

my $filename = $ARGV[0];
my $lexer = Compiler::Lexer->new($filename);
open my $fh, '<', $filename;
my $script = do { local $/; <$fh> };
my $tokens = $lexer->tokenize($script);
print Dumper $tokens;
print Dumper $lexer->get_groups_by_syntax_level($$tokens, Compiler::Lexer::SyntaxType::T_Stmt);
print Dumper $lexer->get_used_modules($script);