#!/usr/bin/perl

use autodie;

$num_args = $#ARGV + 1;
if ($num_args != 1) {
  print "\nUsage: make-3input.pl genre_abbrev\n";
  exit;
}

$genre = $ARGV[0];

chdir "/home/skoumal/PROJEKTY/GACR1012/compare";

while ($radek = <STDIN>) {
    chomp $radek;
    @file = split("[ ]+",$radek);
    @parts0 = split('-',$file[0]);
    @parts1 = split('-',$file[1]);
    print $radek;
    @inp = ("merge/archiv/$parts0[0].fordiff","anotatori/$genre/$file[0]","anotatori/$genre/$file[1]");
    $outf = "cmp-3input/$parts0[0]-$parts0[1]-$parts1[1]";
    print " > $outf\n";
    open ($outhandle,'>',$outf);
    print $outhandle `vert-vert-vert.sh $inp[0] $inp[1] $inp[2]`;
    close ($outhandle);
}