#!/usr/bin/perl -w
use strict;

if(scalar(@ARGV)>0)
{
  playString(join(' ',@ARGV));
}else
{
  playString($_) while(<STDIN>);
}
exit(0);

sub playString
{
  my ($str)=@_;
  while($str=~m/([a-z]+)/ig)
  {
    my $word=lc $1;
    my $firstLetter=$1 if($word=~m/^([a-z])/);
    
    if(not -e "/usr/share/WyabdcRealPeopleTTS/$firstLetter/$word.wav")
    {
      $word="unknown";
      $firstLetter="u";
    }
    
    system('play',"/usr/share/WyabdcRealPeopleTTS/$firstLetter/$word.wav");
    sleep(0.1)
  }
}