in reply to file age in seconds using M file test
Or you can use stat:
12:07 >perl -wE "my $f = shift; say (int((-M $f)*60*60*24)||1); say ti +me - (stat $f)[9]" 1202_SoPW.pl 1441520 1441520 12:10 >
TIMTOWTDI :-)
| Athanasius <°(((>< contra mundum | Iustus alius egestas vitae, eros Piratica, |
|
|---|