view release on metacpan or  search on metacpan

lib/Lingua/PT/Speaker.pm  view on Meta::CPAN

=head1 SYNOPSIS

  use Lingua::PT::Speaker;

  $pt1 = '/usr/lib/mbrola/pt1/pt1';

  Lingua::PT::speaker::debug() if $debug;

  my $tmp="/tmp/_$$";

  $/="" if  $l;
  while($line = <>){
     speak({output => "$tmp.pho"}, $line);
     system("mbrola -t $t $pt1 $tmp.pho $tmp.wav; play $tmp.wav"); 
  }

=head1 DESCRIPTION


=head2 EXPORT

pt-speak.in  view on Meta::CPAN

  print "\t-viseu\n";
  print "\t-porto\n";
  print "\t-lamego\n";
  print "\t-cebolinha\n";
  print "\t-sotaque cebolinha,porto   list of accents\n";
  exit;
}

my $tmp="/tmp/_$$";

$/="" if  $l;

if(@ARGV && $ARGV[0] =~ /\.pho$/) { 
   if($wav){
      `##MBROLA## -t $t $pt1 $ARGV[0] $wav`; 
      ## FIX ME -- use global player
      `play $wav`; 
   }
   else{
      `##MBROLA## -t $t $pt1 $ARGV[0] $tmp.wav`; 
      ## FIX ME -- use global player