/usr/share/doc/libparse-recdescent-perl/examples/demo_tokens.pl is in libparse-recdescent-perl 1.967009+dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | #!/usr/bin/perl -w
use Parse::RecDescent;
use Data::Dumper;
my $lexer = new Parse::RecDescent q
{
lex: token(s)
token: /(I|you|he)\b/i <token:PRON>
| /(is|are)\b/ <token:VERB>
| 'dumbest' <token:ADJ>
| 'Bill-loving' <token:ADJ>
| 'clearly' <token:ADJ>
| /the\b|a\b/ <token:ARTICLE>
| /\w+/ <token:WORD>
| /\S+/ <token:PUNCT,OTHER>
};
my $tokens = $lexer->lex(join "", <DATA>);
print Data::Dumper->Dump($tokens);
__DATA__
You are clearly the dumbest, Bill-loving script-kiddie I have ever seen!
|