文件操作 - IO.pm
返回文件管理
返回主菜单
删除本文件
文件: /snap/core20/2866/usr/lib/x86_64-linux-gnu/perl-base/IO.pm
编辑文件内容
# package IO; use XSLoader (); use Carp; use strict; use warnings; our $VERSION = "1.40"; XSLoader::load 'IO', $VERSION; sub import { shift; warnings::warnif('deprecated', qq{Parameterless "use IO" deprecated}) if @_ == 0 ; my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir); local @INC = @INC; pop @INC if $INC[-1] eq '.'; eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l) or croak $@; } 1; __END__
修改文件时间
将文件时间修改为当前时间的前一年
删除文件