小编Ani*_*mar的帖子

我想将创建时间超过 15 分钟的文件和目录移动到 HP Unix 中的存档文件夹，但我没有找到任何选项。我为它创建了一个 Perl 脚本，但它只移动文件而不移动目录。

#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
use File::Copy;
my $dstdir = '/tmp/test14';
@ARGV = ("/tmp/test11/") unless @ARGV;
print STDERR "Begin @ ", scalar localtime, "\n";
find(
    sub {
        if ( -f $_ && -M _ >= 1/96 ) {
            print STDERR "Moving '$_'\n";
            move( $File::Find::name, $dstdir ) or die "$!\n";
        }
    },
    @ARGV );
print STDERR "Ended @ ", scalar localtime, "\n";
1;

输入：

/tmp/test11# ll
drwxrwxrwx   2 root       sys             96 …