reads and lists a directory forwards and backwards by date

dirByDate.pl

my $path = '/home/opuperl';
opendir my($dirh), $path or die "can't opendir $path: $!";
my @flist = sort {  -M $a <=> -M $b } # sort by mod time

map  { "$path/$_" } # need full paths for sort
  grep ! m/^\./ # remove dotfiles
  ,readdir $dirh;

closedir $dirh;

use Data::Dumper;
print "Newest First\n".Dumper( @flist )."\n\n";

################################################################################

my $path = '/home/opuperl';
opendir my($dirh), $path or die "can't opendir $path: $!";
my @flist = reverse sort {  -M $a <=> -M $b } # sort by mod time

map  { "$path/$_" } # need full paths for sort
  grep ! m/^\./ # remove dotfiles
  ,readdir $dirh;

closedir $dirh;

use Data::Dumper;
print "Oldest First\n".Dumper( @flist );