#!/usr/bin/perl

 $BasePhrName = "dig_";
 $ParExt = ".mfc";

 
 $TrainDir = "Train";
 $TestDir = "Test";
 $PCMDir = "TMT";
 $ParDir = "MFCC";
 $DictorDir = "D_";

 $TrainPhraseNumber = 100;
 $TrainDirNumber = 50;
 $TestPhraseNumber = 100;
 $TestDirNumber = 50;

 $scpTrPc = "train_pcm.scp";
 $scpTrPa = "train_par.scp";
 $scpTePc = "test_pcm.scp";
 $scpTePa = "test_par.scp";

 mkdir $TrainDir;
 mkdir $TestDir;

 $line = $TrainDir . "\\" . $PCMDir;
 mkdir $line;
 $line = $TrainDir . "\\" . $ParDir;
 mkdir $line;

 $line = $TestDir . "\\" . $PCMDir;
 mkdir $line;

 $line = $TestDir . "\\" . $ParDir;
 mkdir $line;



 open (SCP1, ">$scpTrPc")   || die ("Unable to open file for writing");
 open (SCP2, ">$scpTrPa")   || die ("Unable to open file for writing");

 for ($i = 1; $i < $TrainDirNumber + 1; ++$i) {
   for ($j = 1; $j < $TrainPhraseNumber + 1; ++$j) {
    $line =  $TrainDir . "\\" . $PCMDir . "\\" . $DictorDir . $i . "\\" . $BasePhrName . $j;
    print SCP1 "$line\n";
    $line = $line . " " . $TrainDir . "\\" . $ParDir . "\\" . $DictorDir . $i . "\\" . $BasePhrName . $j . $ParExt;
    print SCP2 "$line\n";
   }
   $line = $TrainDir . "\\" . $PCMDir . "\\" . $DictorDir . $i;
   mkdir $line;
   $line = $TrainDir . "\\" . $ParDir . "\\" . $DictorDir . $i;
   mkdir $line;

 }

 open (SCP1, ">$scpTePc")   || die ("Unable to open file for writing");
 open (SCP2, ">$scpTePa")   || die ("Unable to open file for writing");

 for ($i = 1; $i < $TestDirNumber + 1; ++$i) {
   for ($j = 1; $j < $TestPhraseNumber + 1; ++$j) {
    $line =  $TestDir . "\\" . $PCMDir . "\\" . $DictorDir . $i . "\\" . $BasePhrName . $j;
    print SCP1 "$line\n";
    $line = $line . " " . $TestDir . "\\" . $ParDir . "\\" . $DictorDir . $i . "\\" . $BasePhrName . $j . $ParExt;
    print SCP2 "$line\n";
   }
   $line = $TestDir . "\\" . $PCMDir . "\\" . $DictorDir . $i ;
   mkdir $line;
   $line = $TestDir . "\\" . $ParDir . "\\" . $DictorDir . $i ;
   mkdir $line;

 }
