Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    my $type = -d $fullpath ? "directory" : "$size bytes";
    printf "%-20.20s: %s (%s)\n", $p, mydatetime($modtime), $type;
}
  2. or download this
    Contents of dir 'E:\common\compare\latest folder\PDF\DB\':
abc.txt             : 2015-01-16 16:33:09 (5 bytes)
somedir             : 2015-01-16 16:58:18 (directory)
xyz.txt             : 2015-01-16 16:58:42 (42 bytes)