文件操作 - benchmk1.pl
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Bit-Vector-7.3/examples/benchmk1.pl
编辑文件内容
#!/usr/bin/perl use Benchmark; sub init { delete $INC{'Carp.pm'}; delete $INC{'Exporter.pm'}; delete $INC{'overload.pm'}; delete $INC{'Bit/Vector/Overload.pm'}; delete $INC{'Bit/Vector.pm'}; delete $INC{'DynaLoader.pm'}; } sub plain { init(); require Bit::Vector; } sub ovrld { init(); require Bit::Vector::Overload; } timethese ( 100, { plain => \&plain, ovrld => \&ovrld } ); __END__
修改文件时间
将文件时间修改为当前时间的前一年
删除文件