#!/usr/bin/perl

use strict;

sub process($){
  my ($dir) = @_;
  my @exp = split(":", $dir);
  my $name = $exp[4];
  my $ep;
  my $path = "results/" . $dir . "/";
  my $chex = $path . "checkpoints/";
  return 0 unless -e $chex;
  my $sampz = $path . "samples/";
  return 0 unless -e $sampz;

  # print $name . "\n";
  system('/bin/bash', 'mix-wav.sh', $path, $name);
}

opendir RESULTS, ("results/") or die $!;
# my @results = sort {(stat $a)[9] <=> (stat $b)[9]} readdir(RESULTS);
my @results = sort {$a cmp $b} readdir(RESULTS);
closedir RESULTS;

for my $result (@results) {
  next if $result !~ /exp:/;
  process($result);
}