文件操作 - demo_methods.pl
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Parse-RecDescent-1.967009/demo/demo_methods.pl
编辑文件内容
#!/usr/bin/perl -sw # DEMONSTRATE USING DERIVED CLASS METHODS IN A PARSER package MyParser; use Parse::RecDescent; @ISA = qw { Parse::RecDescent }; # CALL THIS METHOD THROUGH AN OBJECT... sub print_cat ($$) { print "CAT: $_[1]\n"; } # CALL THESE METHODS DIRECTLY (MUST QUALIFY)... sub print_dog ($) { print "DOG: $_[0]\n"; } sub print_rat ($) { print "RAT: $_[0]\n"; } package main; $grammar = q{ inputs : input(s) | <reject> input : "cat" { $thisparser->print_cat($item[1]); } | "dog" { MyParser::print_dog($item[1]); } | "rat" # ERROR (UNQUALIFIED METHOD CALL) { print_rat($item[1]); } }; $parse = new MyParser ($grammar); print "> "; while (<>) { $parse->inputs($_) || print "huh?\n"; print "> "; }
修改文件时间
将文件时间修改为当前时间的前一年
删除文件