文件操作 - NodeList.pm
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/perl5/vendor_perl/XML/DOM/NodeList.pm
编辑文件内容
###################################################################### package XML::DOM::NodeList; ###################################################################### use vars qw ( $EMPTY ); # Empty NodeList $EMPTY = new XML::DOM::NodeList; sub new { bless [], $_[0]; } sub item { $_[0]->[$_[1]]; } sub getLength { int (@{$_[0]}); } #------------------------------------------------------------ # Extra method implementations sub dispose { my $self = shift; for my $kid (@{$self}) { $kid->dispose; } } sub setOwnerDocument { my ($self, $doc) = @_; for my $kid (@{$self}) { $kid->setOwnerDocument ($doc); } } 1; # package return code
修改文件时间
将文件时间修改为当前时间的前一年
删除文件