文件操作 - Get.al
返回文件管理
返回主菜单
删除本文件
文件: /usr/lib64/perl5/vendor_perl/auto/Newt/Radiogroup/Get.al
编辑文件内容
# NOTE: Derived from blib/lib/Newt.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package Newt::Radiogroup; #line 581 "blib/lib/Newt.pm (autosplit into blib/lib/auto/Newt/Radiogroup/Get.al)" ########################### Newt::Radiogroup sub Newt::Radiogroup::Get { my $self = shift; my $index = 0; foreach (@{$self->{components}}) { return $index if ${Newt::newtRadioGetCurrent($_)} eq ${$_}; $index++; } } # end of Newt::Radiogroup::Get 1;
修改文件时间
将文件时间修改为当前时间的前一年
删除文件