Perl获取文件年龄，圆形数字

Question

我有以下命令。

perl -l -e 'print -M $ARGV[0], " days"' $testfile

它工作正常，因为它给了我正确的年龄，并根据需要在solaris，linux，unix上工作。

但格式为

"1.000000394945 days."

我希望将其向下舍入以使后处理更容易像

"1.00 days."

知道如何修改它以使它们成为整数吗？

Answer 1

使用printf：

perl -l -e 'printf "%.2f days", -M $ARGV[0]' file