文件操作 - demo_tokens.pl
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Parse-RecDescent-1.967009/demo/demo_tokens.pl
编辑文件内容
#!/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!
修改文件时间
将文件时间修改为当前时间的前一年
删除文件