主页 / 问题 / 1328204
Accepted
Tariel
Asked:2022-09-14 02:51:39 +0000 UTC2022-09-14 02:51:39 +0000 UTC

获取文件夹中文件的最后修改日期列表

  • 772

实际上是一个主题。没有 Perl 的经验。您需要获取一个包含特定文件夹中所有文件的最后修改日期的数组。现在，我正在尝试使用本机操作系统命令并解析结果，但这似乎是一个拐杖。

perl

1 个回答

  1. Best Answer

    搜索文件::查找

    判断找到是否是普通文件-f

    计算修改日期统计

    #!/usr/local/bin/perl -w
use strict;
use File::Find;
use Data::Dumper qw/Dumper/;

my $d = $ARGV[0] || '.';
my @paths;
find(sub { push @paths, $File::Find::name }, $d);

my @files;
foreach my $f (@paths) {
  if (-f $f) {
    my @f_stat = stat($f);
    push @files, { file => $f, mtime => $f_stat[9] };
  }
}

print Dumper @files;

    结果：

    $ perl src/file-stat-1/index.pl ./src

...
$VAR267 = {
            'mtime' => 1620653004,
            'file' => './src/oracle-2/typeorm.ts'
          };
$VAR268 = {
            'mtime' => 1620653008,
            'file' => './src/oracle-2/oracledb.js'
          };
$VAR269 = {
            'mtime' => 1620653011,
            'file' => './src/oracle-2/knex.js'
          };
$VAR270 = {
            'file' => './src/express-1024-bytes/index.js',
            'mtime' => 1624648857
          };

    可以在此处找到其他文件搜索选项。

    • 2

相关问题