Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...
die 'Usage: $o <dir>' unless @ARGV >0;

print reduce{ -C $a > -C $b ? $a : $b } glob for @ARGV;

Select or download this

perl -MList::Util=reduce -le"print reduce{-C $a>-C $b?$a:$b}glob for @
+ARGV;" 
cache/*/*/*/*