文件操作 - hdump
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-HTML-Parser/eg/hdump
编辑文件内容
#!/usr/bin/perl -w use HTML::Parser (); use Data::Dump (); sub h { my($event, $line, $column, $text, $tagname, $attr) = @_; my @d = (uc(substr($event,0,1)) . " L$line C$column"); substr($text, 40) = "..." if length($text) > 40; push(@d, $text); push(@d, $tagname) if defined $tagname; push(@d, $attr) if $attr; print Data::Dump::dump(@d), "\n"; } my $p = HTML::Parser->new(api_version => 3); $p->handler(default => \&h, "event, line, column, text, tagname, attr"); $p->parse_file(@ARGV ? shift : *STDIN);
修改文件时间
将文件时间修改为当前时间的前一年
删除文件