bash - 如何使用 find 和 Perl 列出文件？

Question

我在基于 HP-UX 的机器上工作，我需要按日期列出文件夹中包含的日志的名称，并用“;”分隔名称。结果按日期降序排列，存储在 txt 中，因此 txt 的内容如下:

2019-02-02;/home/user/Documents/imthelog03.log
2019-02-01;/home/user/Documents/imthelog02.log
2019-01-29;/home/user/Documents/imthelog01.log

我已经试过了:

find /home/user/Documents/*.log* exec perl -MPOSIX -e 'print POSIX::strftime "%Y%m%d\n", localtime((stat $ARGV[0])[9])'

但是我得不到我需要的东西，我不能使用stats我正在使用 for 逐行阅读所以我怎样才能得到日期和 path/filename 由 ; 在 txt 中分隔，使用 bash 和最终 perl 按日期降序排序，谢谢!

Answer 1

可以用 Perl 来做

perl -MPOSIX=strftime -wE'$d = shift || "."; 
    say strftime("%Y-%m-%d", localtime((stat $_)[9])), "; $_" 
        for sort { (stat $b)[9] <=> (stat $a)[9] } glob "$d/*log*"
' dir-name

将 dir-name 提交到单行代码的地方(或者它与 .，当前目录一起工作)。

请注意，我认为不需要 find，因为您正在从目录中获取(日志)文件列表。

这可以优化，不要重复运行 stat，但我怀疑它在预期使用中是否重要。不过，我建议将它放在一个不错的小脚本中。

---

不过，stat 并不便宜，如果它经常捕获长文件列表，则使用

perl -MPOSIX=strftime -wE'$d = shift || "."; 
    say strftime("%Y-%m-%d", localtime($_->[1])), "; $_->[0]" 
        for 
            sort { $b->[1] <=> $a->[1] } 
                map { [$_, (stat $_)[9]] } glob "$d/*log*"
' dir-name

我将声明分成更多行以强调更改。

glob 中的输入文件列表用于首先使用 map 构建另一个列表，每个文件名都有一个 arrayref:名称本身 和 该文件的时间戳。然后 sort 中的成对比较不必每次都运行 stat；他们使用预先计算过一次的时间戳。这称为 Schwartzian transform .此外，sprintf 也不需要再次运行 stat。

请注意，优化会带来开销，因此仅在确实需要时才使用它。参见，例如，this post (最后一节)讨论和链接。