(Perl) VoiceBase -- Retrieve Plain Text Transcript

Retrieves a plain text transcript for a media file.

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

use chilkat();

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

# Insert your Bearer token here:
$accessToken = "VOICEBASE_TOKEN";

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

# Add the access (bearer) token to the request, which is a header
# having the following format:
# Authorization: Bearer <userAccessToken>
$sbAuth = chilkat::CkStringBuilder->new();
$sbAuth->Append("Bearer ");
$sbAuth->Append($accessToken);
$http->SetRequestHeader("Authorization",$sbAuth->getAsString());

$sbUrl = chilkat::CkStringBuilder->new();
$sbUrl->Append("https://apis.voicebase.com/v2-beta/media/$MEDIA_ID/transcripts/latest");
$replaceCount = $sbUrl->Replace("$MEDIA_ID","f9b9bb88-d52c-4960-bcef-d516a9f85594");

$http->put_Accept("text/plain");

$strText = $http->quickGetStr($sbUrl->getAsString());
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

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

if ($http->get_LastStatus() != 200) {
    print "Failed" . "\r\n";
}
else {
    print "Success" . "\r\n";
}