文件操作 - short.al
返回文件管理
返回主菜单
删除本文件
文件: /usr/lib64/perl5/vendor_perl/auto/NetAddr/IP/short.al
编辑文件内容
# NOTE: Derived from blib/lib/NetAddr/IP.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package NetAddr::IP; #line 841 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/short.al)" sub short($) { my $addr = $_[0]->addr; if (! $_[0]->{isv6} && isIPv4($_[0]->{addr})) { my @o = split(/\./, $addr, 4); splice(@o, 1, 2) if $o[1] == 0 and $o[2] == 0; return join '.', @o; } return _compV6($addr); } # end of NetAddr::IP::short 1;
修改文件时间
将文件时间修改为当前时间的前一年
删除文件