列出AIX系统上创建的文件和时间戳（Perl）

Question

我想在AIX系统上执行类似ls -l --time-style="+%s"的命令 我只需要文件的时间戳和文件名。

this answer，我做了：

find . -type f -exec perl -le 'print((stat shift)[9])' {} \;

但我找不到用Perl打印文件名的方法（我不懂语言，并且单线语法有问题）。
我正在尝试这样的事情：

perl -le 'print((stat shift)[9] . " ???")' foo.txt

任何人都可以帮助我吗？

Answer 1

您正在寻找的是@ARGV数组，您可以使用它来循环，并检查$_以获取当前文件名，

perl -le 'print((stat $_)[9] . " $_") for @ARGV' foo.txt