文件操作 - with_fallback.pm
返回文件管理
返回主菜单
删除本文件
文件: /usr/local/src/openssl-1.1.1w/util/perl/with_fallback.pm
编辑文件内容
# Copyright 2016-2018 The OpenSSL Project Authors. All Rights Reserved. # # Licensed under the OpenSSL license (the "License"). You may not use # this file except in compliance with the License. You can obtain a copy # in the file LICENSE in the source distribution or at # https://www.openssl.org/source/license.html package with_fallback; sub import { shift; use File::Basename; use File::Spec::Functions; foreach (@_) { eval "use $_"; if ($@) { unshift @INC, catdir(dirname(__FILE__), "..", "..", "external", "perl"); my $transfer = "transfer::$_"; eval "use $transfer"; shift @INC; warn $@ if $@; } } } 1;
修改文件时间
将文件时间修改为当前时间的前一年
删除文件