我也跟着下面的链接: http://zaf.github.io/asterisk-speech-recog/如何使用IBM沃森Bluemix语音到文本的语音引擎在Asterisk
现在我想用IBM沃森Bluemix语音到文本,而不是谷歌的语音识别测试。 任何人都可以帮助我使用链接上提供的代码。
它正在使用谷歌语音引擎。但我想使用IBM Bluemix。
#!/usr/bin/perl
use strict;
use warnings;
require LWP::UserAgent;
use WWW::Curl::Easy;
my $url = 'https://stream.watsonplatform.net/speech-to-text/api';
my $ua;
my $fh;
my $audio;
my $response;
my $headers;
my $username = 'username';
my $password = 'password';
local $ENV{'HTTPS_DEBUG'} = 1;
open($fh, "<", "test.flac") or die "Can't read file: $!";
$audio = do { local $/; <$fh> };
close($fh);
$ua = LWP::UserAgent->new;
$response = $ua->post($url, Content_Type => "audio/flac",Transfer_Encoding => "chunked", Content => $audio);
$response->authorization_basic($username, $password);
my $cont = $response->content;
print $cont;
然后,它给了我输出
SSL_connect:before/connect initialization
SSL_connect:SSLv2/v3 write client hello A
SSL_connect:SSLv3 read server hello A
SSL_connect:SSLv3 read server certificate A
SSL_connect:SSLv3 read server done A
SSL_connect:SSLv3 write client key exchange A
SSL_connect:SSLv3 write change cipher spec A
SSL_connect:SSLv3 write finished A
SSL_connect:SSLv3 flush data
SSL_connect:SSLv3 read finished A
500 write failed:
这是“给我一个代码”的问题。请首先尝试自己编写代码,如果您遇到任何问题,请将日志与此日志完全相关,然后有人可能会查看它。 – os11k
@ os11k - 我更新了代码。那么它给了我一个错误。请参阅输出 – Bee
您的perl代码不正确,至少您需要在请求之前提供凭据,也许您有其他错误,这只是我看到的第一个。我建议你添加perl标签,因为目前这是100%perl相关的问题,与Asterisk无关。 – os11k