Small fixes on switchboard perl scripts for SRE16 (kaldi-asr#4256)

* update nnet/chain tdnn runner * fix ivec dir in chain system * nj mods on chain, proved to be ran * remove affix default option * create tuning directory * same for chain * minor fix on stage for run_ivector_common.sh * add exp 2b for chain: list struc for frames_per_eg * fix typos and change ivector transform from lda to pca * changes in terms of arameters for training, referencing wsj * add wer computation script * some fixes for wer script * delete trial comments * add numbers, comments and minor changes on wer computing script * add results and more comments * space * minor comment fix * delete scripts that are not useful * add 2b runner script, which references 7p from swbd * change dimension to suggested * change number of jobs * intermediate changes for exp * remove copyrights in tdnn runners * add separate wer calculation scripts for nnet3 and chain, for chain we output probs for diff. objectives * style and grep fix * update results from chain and change softlink, deleting files from chain * delete 1a which has been deprecated from nnet3 directory * update manual in compre_wer.sh * minor change * sync; mark all places that needs modification and cleaning * more modifications and style fixing * foo * change mode name and update recipe with comments * fix comments * more fixes on scripts&comments * add softlinks about scripts * acquire mode name to chain script caller * add RESULTS file. will have gmm results from two modes * result updated * more comments * exp name fix * update results and add info from steps/info/chain_dir_info.pl * small fix on dev&test nj * more foo fix * change 'set -euxo pipefail' to 'set -e' * remove mode options; change cmd to take advantage of gridengine * remove results from old scripts(simple mode) * change stage option * [swbd] initial commit on small fix of swbd preparation scripts for sre Co-authored-by: root <[email protected]> Co-authored-by: searcher1994 <[email protected]> Co-authored-by: root <[email protected]> Co-authored-by: root <[email protected]> Co-authored-by: root <[email protected]> Co-authored-by: xuechen <[email protected]> Co-authored-by: Searcher Liu <[email protected]>
cailin186 · Sep 17, 2020 · 0f2d901 · 0f2d901
1 parent 98c2622
commit 0f2d901
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 9 deletions.
diff --git a/egs/sre16/v1/local/make_swbd2_phase1.pl b/egs/sre16/v1/local/make_swbd2_phase1.pl
@@ -15,7 +15,7 @@
  die "Error making directory $out_dir";
 }
 
-open(CS, "<$db_base/doc/callstat.tbl") || die "Could not open $db_base/doc/callstat.tbl";
+open(CS, "<$db_base/docs/callstat.tbl") || die "Could not open $db_base/doc/callstat.tbl";
 open(GNDR, ">$out_dir/spk2gender") || die "Could not open the output file $out_dir/spk2gender";
 open(SPKR, ">$out_dir/utt2spk") || die "Could not open the output file $out_dir/utt2spk";
 open(WAV, ">$out_dir/wav.scp") || die "Could not open the output file $out_dir/wav.scp";

diff --git a/egs/sre16/v1/local/make_swbd2_phase2.pl b/egs/sre16/v1/local/make_swbd2_phase2.pl
@@ -15,8 +15,8 @@
  die "Error making directory $out_dir";
 }
 
-open(CS, "<$db_base/DISC1/doc/callstat.tbl") || die "Could not open $db_base/DISC1/doc/callstat.tbl";
-open(CI, "<$db_base/DISC1/doc/callinfo.tbl") || die "Could not open $db_base/DISC1/doc/callinfo.tbl";
+open(CS, "<$db_base/docs/callstat.tbl") || die "Could not open $db_base/doc/callstat.tbl";
+open(CI, "<$db_base/docs/callinfo.tbl") || die "Could not open $db_base/doc/callinfo.tbl";
 open(GNDR, ">$out_dir/spk2gender") || die "Could not open the output file $out_dir/spk2gender";
 open(SPKR, ">$out_dir/utt2spk") || die "Could not open the output file $out_dir/utt2spk";
 open(WAV, ">$out_dir/wav.scp") || die "Could not open the output file $out_dir/wav.scp";

diff --git a/egs/sre16/v1/local/make_swbd2_phase3.pl b/egs/sre16/v1/local/make_swbd2_phase3.pl
@@ -15,7 +15,7 @@
  die "Error making directory $out_dir";
 }
 
-open(CS, "<$db_base/DISC1/docs/callstat.tbl") || die "Could not open $db_base/DISC1/docs/callstat.tbl";
+open(CS, "<$db_base/docs/callstat.tbl") || die "Could not open $db_base/docs/callstat.tbl";
 open(GNDR, ">$out_dir/spk2gender") || die "Could not open the output file $out_dir/spk2gender";
 open(SPKR, ">$out_dir/utt2spk") || die "Could not open the output file $out_dir/utt2spk";
 open(WAV, ">$out_dir/wav.scp") || die "Could not open the output file $out_dir/wav.scp";

diff --git a/egs/sre16/v1/local/make_swbd_cellular1.pl b/egs/sre16/v1/local/make_swbd_cellular1.pl
@@ -15,7 +15,7 @@
  die "Error making directory $out_dir";
 }
 
-open(CS, "<$db_base/doc/swb_callstats.tbl") || die "Could not open $db_base/doc/swb_callstats.tbl";
+open(CS, "<$db_base/docs/swb_callstats.tbl") || die "Could not open $db_base/doc/swb_callstats.tbl";
 open(GNDR, ">$out_dir/spk2gender") || die "Could not open the output file $out_dir/spk2gender";
 open(SPKR, ">$out_dir/utt2spk") || die "Could not open the output file $out_dir/utt2spk";
 open(WAV, ">$out_dir/wav.scp") || die "Could not open the output file $out_dir/wav.scp";
@@ -47,24 +47,24 @@
  } else {
  die "Unknown Gender in $line";
  }
- if (-e "$db_base/$wav.sph") {
+ if (-e "$db_base/data/$wav.sph") {
  $uttId = $spkr1 . "-swbdc_" . $wav ."_1";
  if (!$spk2gender{$spkr1}) {
  $spk2gender{$spkr1} = $gender1;
  print GNDR "$spkr1"," $gender1\n";
  }
- print WAV "$uttId"," sph2pipe -f wav -p -c 1 $db_base/$wav.sph |\n";
+ print WAV "$uttId"," sph2pipe -f wav -p -c 1 $db_base/data/$wav.sph |\n";
  print SPKR "$uttId"," $spkr1","\n";
 
  $uttId = $spkr2 . "-swbdc_" . $wav ."_2";
  if (!$spk2gender{$spkr2}) {
  $spk2gender{$spkr2} = $gender2;
  print GNDR "$spkr2"," $gender2\n";
  }
- print WAV "$uttId"," sph2pipe -f wav -p -c 2 $db_base/$wav.sph |\n";
+ print WAV "$uttId"," sph2pipe -f wav -p -c 2 $db_base/data/$wav.sph |\n";
  print SPKR "$uttId"," $spkr2","\n";
  } else {
- print STDERR "Missing $db_base/$wav.sph\n";
+ print STDERR "Missing $db_base/data/$wav.sph\n";
  }
  }
 }