perl 一行脚本获取带路径的最后一条记录

Question

有人可以用 perl one liner 帮助我获得以下内容吗？它必须在 perl 中。

drwxr-x---   - abc_grid abc_fltr          0 2012-02-05 23:24 /samples/abc/accounts/filtered/20120204
drwxr-x---   - abc_grid abc_fltr          0 2012-02-12 14:31 /samples/abc/accounts/filtered/20120211
drwxr-x---   - abc_grid abc_fltr          0 2012-02-19 14:31 /samples/abc/accounts/filtered/20120218
drwxr-x---   - abc_grid abc_fltr          0 2012-02-29 00:24 /samples/abc/accounts/filtered/20120225
drwxr-x---   - abc_grid abc_fltr          0 2012-03-05 11:36 /samples/abc/accounts/filtered/20120303

我要最后一条记录和路径。

/samples/abc/accounts/filtered/20120303

Answer 1

如果我们打高尔夫球，那么

ls -l|perl -lane 'END{print $F[-1]}'

可以缩短为

ls -l|perl -lane'END{print$F[-1]}'
ls -l|perl -lane'}{print$F[-1]'
ls -l|perl -lane}{print\$F[-1]
ls -l|perl -anE}{say\$F[-1]

---

这是一个不使用 ls 的非高尔夫解决方案。无论如何，这样更可靠。

perl -E'say(( sort { -M $a <=> -M $b } @ARGV )[0])' \
    /samples/abc/accounts/filtered/*

引用:-M