文件操作 - features-time64.ph
返回文件管理
返回主菜单
删除本文件
文件: /usr/lib/x86_64-linux-gnu/perl/5.34.0/features-time64.ph
编辑文件内容
require '_h2ph_pre.ph'; no warnings qw(redefine misc); require 'bits/wordsize.ph'; require 'bits/timesize.ph'; if(defined (&_TIME_BITS)) { if((defined(&_TIME_BITS) ? &_TIME_BITS : undef) == 64) { if(! defined (&_FILE_OFFSET_BITS) || (defined(&_FILE_OFFSET_BITS) ? &_FILE_OFFSET_BITS : undef) != 64) { die("_TIME_BITS=64 is allowed only with _FILE_OFFSET_BITS=64"); } elsif((defined(&__TIMESIZE) ? &__TIMESIZE : undef) == 32) { eval 'sub __USE_TIME_BITS64 () {1;}' unless defined(&__USE_TIME_BITS64); } } elsif((defined(&_TIME_BITS) ? &_TIME_BITS : undef) == 32) { if((defined(&__TIMESIZE) ? &__TIMESIZE : undef) > 32) { die("_TIME_BITS=32 is not compatible with __TIMESIZE > 32"); } } else { die("Invalid\ _TIME_BITS\ value\ \(can\ only\ be\ 32\ or\ 64\-bit\)"); } } 1;
修改文件时间
将文件时间修改为当前时间的前一年
删除文件