Perl

IBM Cloud - Text to Speech - Synthesize Audio (POST)

See more IBM Text to Speech Examples

Synthesizes text to audio that is spoken in the specified voice. Uses a POST which allows for more text to be synthesized. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $http = Chilkat2::Http->new;

$http->Login('apikey');
$http->Password('my_apikey');
$http->BasicAuth(1);

# Send the following request:

# curl -X POST -u "apikey:{apikey}"
#    --header "Content-Type: application/json"
#    --header "Accept: audio/wav"
#    --data "{\"text\":\"When life gives you lemons, order the lobster tail.\"}"
#    --output lobster.wav "{url}/v1/synthesize?voice=en-US_AllisonV3Voice"

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

my $sbUrl = Chilkat2::StringBuilder->new;
$sbUrl->Append($myBaseUrl);
$sbUrl->Append('/v1/synthesize?voice=en-US_AllisonV3Voice');

$http->Accept('audio/wav');

my $json = Chilkat2::JsonObject->new;
$json->UpdateString('text', 'When life gives you lemons, order the lobster tail.');

my $url = $sbUrl->GetAsString();
my $resp = Chilkat2::HttpResponse->new;
my $success = $http->HttpJson('POST', $url, $json, 'application/json', $resp);
if (!$success) {
    print $http->LastErrorText, "\n";
    exit;
}

my $respStatusCode = $resp->StatusCode;
print 'response status code = ', $respStatusCode, "\n";

if ($respStatusCode == 200) {
    $success = $resp->SaveBodyBinary('qa_output/lobster.wav');
    print "Success!\n";
} else {
    print $resp->BodyStr, "\n";
}