文件操作 - deHTML_comment.pm
返回文件管理
返回主菜单
删除本文件
文件: /usr/lib64/perl5/vendor_perl/Razor2/Preproc/deHTML_comment.pm
编辑文件内容
package Razor2::Preproc::deHTML_comment; sub new { my $class = shift; return bless {}, $class; } sub isit { my ( $self, $text ) = @_; my $isit = 0; my ( $hdr, $body ) = split /\n\r*\n/, $$text, 2; return 0 unless $body; $isit = $body =~ /(?:<HTML>|<BODY|<FONT|<A HREF)/ism; return $isit if $isit; $isit = $hdr =~ m"^Content-Type: text/html"ism; return $isit; } sub doit { my ( $self, $text ) = @_; my ( $hdr, $body ) = split /\n\r*\n/, $$text, 2; $body =~ s/<!--.*?-->//gs; $$text = "$hdr\n\n$body"; } 1;
修改文件时间
将文件时间修改为当前时间的前一年
删除文件