文件操作 - MyOverload.pm
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Test-Simple/t/lib/MyOverload.pm
编辑文件内容
package Overloaded; ##no critic (Modules::RequireFilenameMatchesPackage) use strict; sub new { my $class = shift; bless { string => shift, num => shift }, $class; } package Overloaded::Compare; use strict; our @ISA = qw(Overloaded); # Sometimes objects have only comparison ops overloaded and nothing else. # For example, DateTime objects. use overload q{eq} => sub { $_[0]->{string} eq $_[1] }, q{==} => sub { $_[0]->{num} == $_[1] }; package Overloaded::Ify; use strict; our @ISA = qw(Overloaded); use overload q{""} => sub { $_[0]->{string} }, q{0+} => sub { $_[0]->{num} }; 1;
修改文件时间
将文件时间修改为当前时间的前一年
删除文件