Blame view
egs/sre08/v1/local/make_sre_2005_test.pl
2.3 KB
8dcb6dfcb
first commit
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 |
#!/usr/bin/env perl
#
# Copyright 2014 David Snyder
# Apache 2.0.
if (! -f "data/local/sre05-key-v7b.txt") {
`mkdir -p data/local/`;
`wget -P data/local/ http://www.openslr.org/resources/10/sre05-key-v7b.txt.gz`;
`gunzip data/local/sre05-key-v7b.txt.gz`;
}
if (@ARGV != 2) {
print STDERR "Usage: $0 <path-to-LDC2011S04> <path-to-output>
";
print STDERR "e.g. $0 /export/corpora5/LDC/LDC2011S04 data
";
exit(1);
}
($db_base, $out_dir) = @ARGV;
$out_dir = "$out_dir/sre05_test/";
if (system("mkdir -p $out_dir")) {
die "Error making directory $out_dir";
}
open(TRIALS, "<data/local/sre05-key-v7b.txt")
or die "Could not open data/local/sre05-key-v7b.txt";
open(GNDR,">", "$out_dir/spk2gender")
or die "Could not open the output file $out_dir/spk2gender";
open(SPKR,">", "$out_dir/utt2spk")
or die "Could not open the output file $out_dir/utt2spk";
open(WAV,">", "$out_dir/wav.scp")
or die "Could not open the output file $out_dir/wav.scp";
$data_src_suffix = "lre05_test";
chomp($data_src_suffix);
while($line=<TRIALS>) {
@attrs = split(" ", $line);
$basename = $attrs[1];
$side = uc $attrs[4];
if (not $side eq "A" and not $side eq "B") {
print "Skipping unknown or summed channel $side in $basename
";
next;
}
$spkr = $attrs[0] . "_$data_src_suffix";
$gender = lc $attrs[8];
if (not $gender eq "m" and not $gender eq "f") {
print "Skipping speaker $attrs[0] with unknown gender $gender.
";
next;
}
print GNDR "$spkr $gender
";
$wav = $db_base."/data/speech/$basename.sph";
$basename =~ s/.sph//;
$uttId = $spkr . "-" . $basename . "_" . $side;
if ( $side eq "A" ) {
$channel = 1;
} elsif ( $side eq "B" ) {
$channel = 2;
} else {
die "unknown channel $side
";
}
if ($wav && -e $wav) {
print WAV "$uttId"," sph2pipe -f wav -p -c $channel $wav |
";
print SPKR "$uttId"," $spkr","
";
} else {
print STDERR "Missing $wav
";
}
}
close(GNDR) || die;
close(SPKR) || die;
close(WAV) || die;
close(TRIALS) || die;
if (system(
"utils/utt2spk_to_spk2utt.pl $out_dir/utt2spk >$out_dir/spk2utt") != 0) {
die "Error creating spk2utt file in directory $out_dir";
}
system("utils/fix_data_dir.sh $out_dir");
if (system(
"utils/validate_data_dir.sh --no-text --no-feats $out_dir") != 0) {
die "Error validating directory $out_dir";
}
|