文件操作 - Subst.pm
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Filter/examples/closure/Subst.pm
编辑文件内容
package Subst ; use Filter::Util::Call ; use Carp ; use strict ; use warnings ; sub import { croak("usage: use Subst qw(from to)") unless @_ == 3 ; my ($self, $from, $to) = @_ ; filter_add( sub { my ($status) ; s/$from/$to/ if ($status = filter_read()) > 0 ; $status ; }) } 1 ;
修改文件时间
将文件时间修改为当前时间的前一年
删除文件