使用perl将base64编码文件发布到google speech api

use strict;
use warnings;
use LWP::UserAgent;
use JSON;

my $url = 'https://speech.googleapis.com/v1/speech:recognize?key=YOUR_API_KEY';

my $base64_file = 'path/to/base64_file.txt';
open(my $fh, '<', $base64_file) or die "Cannot open file: $!";
my $base64_data = do { local $/; <$fh> };
close($fh);

my $request_body = {
    'config' => {
        'encoding' => 'LINEAR16',
        'sampleRateHertz' => 16000,
        'languageCode' => 'en-US'
    },
    'audio' => {
        'content' => $base64_data
    }
};

my $json_request = encode_json($request_body);

my $ua = LWP::UserAgent->new;
my $response = $ua->post($url, 'Content-Type' => 'application/json', 'Content' => $json_request);

if ($response->is_success) {
    my $json_response = decode_json($response->content);
    # 处理API响应结果
    # ...
} else {
    die "API request failed: " . $response->status_line;
}