文件操作 - demo_implicit.pl
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Parse-RecDescent-1.967009/demo/demo_implicit.pl
编辑文件内容
#!/usr/bin/perl -sw # IMPLICIT SUB RULES, OKAY! use strict; use Parse::RecDescent; my $grammar = q{ { my $state = "happy"; } testimony : declaration(s) { print "Ended up $state\n"; } declaration : 'I' ('like'|'loathe')(s) ('ice-cream'|'lawyers') { print "$item[3]\n"; $state = 'happy/sad'; } | 'I' ("can't"|"can") ('fly'|'swim') { print "$item[3]\n"; $state = 'able/unable'; } | <error> }; my $parse = new Parse::RecDescent ($grammar); my $input; while (defined ($input = <>)) { $parse->testimony($input) or print "huh?\n"; }
修改文件时间
将文件时间修改为当前时间的前一年
删除文件