root/Tags/AudioSegmentation/PromptsShuffle.pl

#! /usr/bin/perl
####################################################################
###
### script name : PromptsShuffle.pl
### version: 0.1
### created by: Ken MacLean
### mail: contact@voxforge.org
### Date: 2008.02.08
###   
### Copyright (C) 2008 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.
### 
### Changes:                                                            
####################################################################
use strict;
use List::Util 'shuffle'; 
use File::Copy;

my $debug = 1;
####################################################################
open(PROMPTS, "wav/prompts") or die ("cannot open wav/prompts for input");
my @list = <PROMPTS>;

open(PROMPTS, ">wavShuffled/prompts") or die ("cannot open wavJumbled/prompts for output");     

print "@list\n";
my @shuffled = shuffle(@list); 
print "@shuffled\n";
my $x = 1;
foreach my $line (@shuffled) {
    my ($oldPromptID, @prompt)=split(/ /, $line);
    my $prefix = $oldPromptID;
    $prefix =~ s/\d//g; 
    $prefix =~ s/\s//g; 
    my $padded_fileid = sprintf("%04d",$x);
    my $newPromptID = "$prefix$padded_fileid";  
    print PROMPTS  "$newPromptID @prompt";
    copy("wav/$oldPromptID.wav", "wavShuffled/$newPromptID.wav");
    $x++;
}
close PROMPTS;