文件操作 - demo.pl
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Parse-RecDescent-1.967009/demo/demo.pl
编辑文件内容
#! /usr/bin/perl -w package Foo; use base Parse::RecDescent; sub print_cat { print "Found ", @_[1..$#_], "\n"; } package main; $parse = new Parse::RecDescent(<<'EOG'); input : "cat" { $thisparser->print_cat($item[1]); } | "dog" { $thisparser->print_cat($item[1]); } EOG $parse = bless $parse, "Foo"; $parse->input("cat"); $parse->input("doggone");
修改文件时间
将文件时间修改为当前时间的前一年
删除文件