文件操作 - GroupGenSubclass.pm
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Sub-Exporter/t/lib/Test/SubExporter/GroupGenSubclass.pm
编辑文件内容
use strict; use warnings; package Test::SubExporter::GroupGenSubclass; use base qw(Test::SubExporter::GroupGen); sub gen_group_by_name { my ($class, $group, $arg, $collection) = @_; my %given = ( class => $class, group => $group, arg => $arg, collection => $collection, ); return { baz => sub { return { name => 'baz-sc', %given }; }, }; } "power overwhelming";
修改文件时间
将文件时间修改为当前时间的前一年
删除文件