(Perl) IBM Cloud - Text to Speech - Synthesize Audio (GET)

Synthesizes text to audio that is spoken in the specified voice.

For more information, see https://cloud.ibm.com/apidocs/text-to-speech#synthesize-audio-get

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$http = chilkat::CkHttp->new();

$http->put_Login("apikey");
$http->put_Password("my_apikey");
$http->put_BasicAuth(1);

# Use your base URL shown in the credentials web page (below your apikey)
$myBaseUrl = "https://api.us-south.text-to-speech.watson.cloud.ibm.com/instances/31941e96-7b89-4d56-8993-9cd8f18ec2d8";

$sbUrl = chilkat::CkStringBuilder->new();
$sbUrl->Append($myBaseUrl);
$sbUrl->Append("/v1/synthesize?accept=ACCEPT_TYPE&voice=CHOSEN_VOICE&text=TEXT_TO_SYNTHESIZE");

# Choose "audio/wav" for the output file type.
$numReplaced = $sbUrl->Replace("ACCEPT_TYPE",$http->urlEncode("audio/wav"));
# See the choices for voices at https://cloud.ibm.com/apidocs/text-to-speech#synthesize-audio-get
$numReplaced = $sbUrl->Replace("CHOSEN_VOICE","en-US_MichaelVoice");
$textToSynthesize = "When life gives you lemons, order the lobster tail.";
$numReplaced = $sbUrl->Replace("TEXT_TO_SYNTHESIZE",$http->urlEncode($textToSynthesize));

# Send the GET to synthesize the voice.
# The response file will be contained in bdResponseBody
$bdResponseBody = chilkat::CkBinData->new();
$success = $http->QuickGetBd($sbUrl->getAsString(),$bdResponseBody);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$respStatusCode = $http->get_LastStatus();
print "response status code = " . $respStatusCode . "\r\n";

if ($respStatusCode == 200) {
    $success = $bdResponseBody->WriteFile("qa_output/lobster.wav");
    print "Success!" . "\r\n";
}
else {
    print $bdResponseBody->getString("utf-8") . "\r\n";
}