view release on metacpan or  search on metacpan

bin/awspolly.pl  view on Meta::CPAN

$format =~ s/.+\.([^\.]+)/$1/;
foreach ( $format ) {
  /^mp3$/ and do {
    $format = 'mp3';
    last;
  };
  /^ogg$/ and do {
    $format = 'ogg_vorbis';
    last;
  };
  die( "Error: could not guess audio format based on output audiofilename\n" );
}

# determine engine and voice
my ( $region, $engine, $voice ) = split( /:/, $regionenginevoice );
    die( "Invalid region, engine or voice format. Use <region:engine:voice>.\n" )
      
  unless( defined $region and defined $engine and defined $voice );

# read text file
my $textfile = IO::File->new();

bin/festival.pl  view on Meta::CPAN

		 "$audiofilename" ];
    last;
  };
  'ogg' and do {
    $command = [ "oggenc",
		 "-o",
		 "$audiofilename",
		 "$audiofilename.wav" ];
    last;
  };
  die( "Error: could not guess audio format based on output audiofilename\n" );
}
IPC::Run::run( $command,
	       '>',  \$out );
exit($?) if ($?);
unlink "$audiofilename.wav";
exit(0);

__END__

=pod