On Jan 10, 2008 9:51 AM, Mike Miller &lt;<a href="mailto:mbmiller@taxa.epi.umn.edu">mbmiller@taxa.epi.umn.edu</a>&gt; wrote:<br>[snip]<br><br>OK, I just had to see how awful this would be in Perl.&nbsp; Not too awful:<br><br>% perl -MFile::Find::Rule -MList::Util=min -le &#39;print min map -M, find-&gt;in(&quot;.&quot;)&#39;
<br>0.00752314814814815<br><br>This is the number of days that have passed since the most recent file modification.&nbsp; Other variations can be had by changing out &quot;-M&quot; (see perldoc -f -X) and min/max.&nbsp; File::Find::Rule also permits conditional chaining.&nbsp; One problem with this is that File::Find::Rule isn&#39;t generally part of the Perl core.
<br><br>Here&#39;s a variant that prints the date of the most recent file:<br><br>% perl -MFile::Find::Rule -MList::Util=max -le &#39;print scalar localtime(max map { (stat($_))[9] } find-&gt;in(&quot;.&quot;))&#39;<br>Thu Jan 10 12:18:42 2008
<br>