文件操作 - demo_operator.pl
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Parse-RecDescent-1.967009/demo/demo_operator.pl
编辑文件内容
#!/usr/bin/perl -sw # PARSE LOGICAL EXPRESSIONS use Parse::RecDescent; $grammar = q{ expr : '[' <leftop: atom /,?/ atom>(?) ']' { $item[2] } | '[[' atomlist ']]' { $item[2] } | disj no_garbage { $item[1] } | <rightop: atom '=' num> | <leftop: atom '<<' num> atomlist: <leftop: atom /,?/ atom> no_garbage: /^\s*$/ | <error: Trailing garbage: $text> disj : <leftop: conj /(or)/ conj > conj : <leftop: unary 'and' unary > and : 'and' unary : 'not' atom | '(' expr ')' { $item[2] } | atom atom : /(?!and|or)[a-z]/ num : /\d+/ }; $parse = new Parse::RecDescent ($grammar) or die "bad grammar"; $input = ''; use Data::Dumper; print "> "; while (<>) { if (/^\.$/) { print STDERR Data::Dumper->Dump([$parse->expr($input)]); $input = '' } else { $input .= $_ } print "> "; }
修改文件时间
将文件时间修改为当前时间的前一年
删除文件