Select Code to Download

Select or download this

###################################################
## folders + dated subfolders There are many !!
...
## ..
## function needs to return [ <date2>,A and <date4>,B ]
###################################################

Select or download this

sub _isGoodFolder {
  my ($theDate,$datePlusFolder,$attr) = @_;
...
my @folderKeys = grep { _isGoodFolder($today,$_) } glob("*/*");
chdir($cwd);
return [ map { join ",",(split "\/")[1,0] } @folderKeys ];