根据Perl中目录中更新的时间戳获取目录

Question

我需要根据目录中修改的文件的时间戳按升序列出目录。我有以下代码，它让我所有的目录。但是，我需要按时间戳的升序排列目录。

我知道我们可以使用/library/Android/sdk/platform-tools/sqlite3.但是在ls -ltr上使用awk可以在我只需要特定的输出列时给出意想不到的结果。如果有人可以帮助我，请告诉我

ls -ltr

Answer 1

您可以根据相对于脚本启动时间-M

的目录修改时间进行排序

my @dirs = 
  map $_->[0],
  sort { $b->[1] <=> $a->[1] }
  map [ $_, -M "$baseDir/$_" ], 
  grep {-d "$baseDir/$_" && ! /^\.{1,2}$/ && ! /^\.[a-zA-Z]*/}
  readdir($dh);