文件操作 - demo_mccoy.pl
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Parse-RecDescent-1.967009/demo/demo_mccoy.pl
编辑文件内容
#!/usr/bin/perl -sw # DAMMIT, JIM, I'M A DOCTOR, NOT A PERL PROGRAM! use Parse::RecDescent; $grammar = q{ McCoy : curse ',' name ", I'm a doctor, not a" profession '!' | possessive 'dead,' name '!' | <error> curse : 'Dammit' | 'Goddammit' name : 'Jim' | 'Spock' | 'Scotty' profession: 'magician' | 'miracle worker' | 'Perl hacker' possessive: "He's" | "She's" | "It's" | "They're" }; $parse = new Parse::RecDescent ($grammar); print "> "; while (<>) { $parse->McCoy($_); print "> "; }
修改文件时间
将文件时间修改为当前时间的前一年
删除文件