文件操作 - demo_logic.pl
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Parse-RecDescent-1.967009/demo/demo_logic.pl
编辑文件内容
#!/usr/bin/perl -sw # PARSE LOGICAL EXPRESSIONS $RD::TRACE=1; use Parse::RecDescent; $grammar = q{ expr : disj no_garbage no_garbage: /^\s*$/ | <error: Trailing garbage> disj : conj ('or' conj)(s?) conj : unary ('and' unary)(s?) unary : 'not' atom | '(' disj ( ')' | <error> ) | atom atom : /<.+?>/ }; $parse = new Parse::RecDescent ($grammar); $input = ''; print "> "; while (<>) { if (/^\.$/) { defined $parse->expr($input) or print "huh?\n"; $input = '' } else { chomp; $input .= " $_" } print "> "; }
修改文件时间
将文件时间修改为当前时间的前一年
删除文件