Commit 55e226c0 authored by Peng Qi's avatar Peng Qi
Browse files

Minor bugfixes for fisher_fix_speakerid.pl

git-svn-id: https://svn.code.sf.net/p/kaldi/code/trunk@4258 5e6a8d80-dfce-4ca6-a32a-6e07a63d50c8
parent a1d837d2
...@@ -28,7 +28,7 @@ while (my $line = <$conv_tab>) { ...@@ -28,7 +28,7 @@ while (my $line = <$conv_tab>) {
my @fields = split "," , $line; my @fields = split "," , $line;
#$fields[0] = trim($fields[0]); #$fields[0] = trim($fields[0]);
$fields[5] = trim($fields[5]); $fields[5] = trim($fields[5]);
$fields[10] = trim($fields103]); $fields[10] = trim($fields[10]);
$conv_to_spk{'fe_03_' . $fields[0] . '-A'} = $fields[5]; $conv_to_spk{'fe_03_' . $fields[0] . '-A'} = $fields[5];
$conv_to_spk{'fe_03_' . $fields[0] . '-B'} = $fields[10]; $conv_to_spk{'fe_03_' . $fields[0] . '-B'} = $fields[10];
} }
...@@ -72,7 +72,7 @@ foreach my $conv (keys %missingconv) { ...@@ -72,7 +72,7 @@ foreach my $conv (keys %missingconv) {
# fix spk2gender # fix spk2gender
if (open(my $spk2gender, '<', $dir . '/spk2gender')) { if (open(my $spk2gender, '<', $dir . '/spk2gender')) {
open(my $spk2gender_new, '>', $dir . '/spk2gender.new') open(my $spk2gender_new, '>', $dir . '/spk2gender.new');
while (my $line = <$spk2gender>) { while (my $line = <$spk2gender>) {
chomp $line; chomp $line;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment