文件操作 - demo_autostub.pl
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Parse-RecDescent-1.967009/demo/demo_autostub.pl
编辑文件内容
#!/usr/bin/perl -ws # use strict; use Parse::RecDescent; print 1 if Parse::RecDescent->new(<<'EOGRAMMAR')->file(join "", <DATA>); <autostub> file: defn(s) defn: 'def' ident ':' block block: '{' item(s) '}' EOGRAMMAR __DATA__ def ident : { item item item }
修改文件时间
将文件时间修改为当前时间的前一年
删除文件