gen-jobs.pl

#!/usr/bin/perl
use warnings;
use strict;
use autodie;

my @lines = <>;
chomp @lines;
my %adjadj;

foreach my $l (@lines) {
  my ($combo, $reduc) = split / /, $l ;
  if ($adjadj{$reduc}) {
    push(@{$adjadj{$reduc}}, ($combo));
  } else {
    $adjadj{$reduc} = [ $combo ];
  }
}

my %dirs;

foreach my $aa (keys(%adjadj)) {
  $aa =~ /([A-Z][a-z]+)([A-Z][a-z]+)/;
  my ($a1, $a2) = ($1, $2);
  if ( ! $dirs{$a1}) {
    system "mkdir $a1";
    $dirs{$a1} = 1;
  }
  open my $fh, ">", "$a1/$a2";
  my $js = join "\n", sort(@{$adjadj{$aa}});
  print $fh "$js\n";
  close $fh;
};