[Omaha.pm] du -k --max-depth 1

["Jay Hannah" <jhannah@omnihotels.com>]

AIX bugs me. For instance

   du -k --max-depth 1

works fine on Linux, but AIX's du is stupid. So here's the Perl equivalent of "--max-depth 1":

   du -k | perl -ne 'print if (tr#/#/# == 1)'

Grin,

j