root/Trunk/Scripts/Testing_scripts/NightlyTest/downsample.pl

#!/usr/bin/perl -w
####################################################################
###
###     script name : downsample.pl
###     version: 0.2
###             modified by: Ken MacLean
###             mail: kmaclean@voxforge.org
###             Date: 2006.5.9
###     Command: ./downsample.pl FilesToBeDownsampled filetype(raw/wav) original_sampling_rate targetrate 
###
### Copyright (C) 2006 Ken MacLean
###
### This program is free software; you can redistribute it and/or
### modify it under the terms of the GNU General Public License
### as published by the Free Software Foundation; either version 3
### of the License, or (at your option) any later version.
###
### This program is distributed in the hope that it will be useful,
### but WITHOUT ANY WARRANTY; without even the implied warranty of
### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
### GNU General Public License for more details.
###                                                                 
####################################################################

use strict;
use File::Spec;

my ($targetrate, $command, $codetrain, $line,  $file, $directories, $volume);
my ($original_file_type, @filename, $original_sampling_rate);

# check usage
if (@ARGV != 4) {
  print "Wrong number of arguments ... usage: $0 FilesToBeDownsampled filetype(raw/wav) original_sampling_rate(Hz) targetrate(Hz)\n\n"; 
  exit (0);
}

# read in command line arguments
($codetrain, $original_file_type, $original_sampling_rate, $targetrate) = @ARGV;

# open files
open (FILEIN,"$codetrain") || die ("Unable to open codetrain $codetrain file for reading");

# process each prompt one at a time
while ($line = <FILEIN>) {
  chomp ($line);
  ($volume,$directories,$file) = File::Spec->splitpath( $line );
  print "downsampling:$file\n";
  
if ($original_file_type eq "wav") {
        $command = ("sox $line -r $targetrate -w /home/kmaclean/workspace/VoxForge/Audio/Test/Main/8kHz_16bit/$file"); system($command) == 0 or die "system $command failed: $?"; 
} else {
        die ("Error: wrong file type (only \'wav\' or \'raw\' permitted)");
}

} #end of while loop

close(FILEIN);