文件操作 - demo_matchrule.pl
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Parse-RecDescent-1.967009/demo/demo_matchrule.pl
编辑文件内容
#!/usr/bin/perl -sw use vars qw($animal); use Parse::RecDescent; $grammar = q { object: thing[article=>'a'](s) | thing[article=>'the'](s) thing: <matchrule:$arg{article}> <matchrule:${\scalar reverse $::animal}> a: 'a' the: 'the' cat: 'cat' { print "meow\n"; $::animal = 'god' } dog: 'dog' { print "woof\n" } }; unless( $parser = new Parse::RecDescent( $grammar )) { die "bad grammar; bailing\n"; } $/ = ""; while (defined ($input = <DATA>)) { $::animal = reverse 'cat'; print STDERR "parsing...\n"; unless( defined $parser->object( $input )) { die "error in input; bailing\n"; } print STDERR "...parsed\n"; } __DATA__ a cat a cat a cat a dog the cat the dog the dog the dog the dog a dog
修改文件时间
将文件时间修改为当前时间的前一年
删除文件