perl - 如何在 Perl 中使用 NET::SSH2 的 SFTP 模块按时间顺序列出文件？

Question

我通过 Perl 中的 NET::SSH2 包使用 SFTP。使用 opendir 函数可以很好地列出文件夹中的文件。

我想按时间顺序排列文件，最新修改的文​​件排在最后。这可能吗？如何实现？

Answer 1

Net::SSH2::Dir::read 方法返回的散列具有名为 mtime 的条目，指示条目被修改的时间。用它来排序条目:

my @e;
my $dir = $sftp->opendir($dir);

while (my $e = $dir->read) {
  push @e, $e;
}

@e = sort { $a->{mtime} <=> $b->{mtime} } @e;
print "$_->{name}\n" for @e;