Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
5 changed files
with
85 additions
and
5 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,59 @@ | ||
| #!/usr/bin/env perl | ||
| # Render speech to text using the google cloud speech engine. | ||
| # | ||
| # Kruft Industries Sept. 2016 | ||
| # | ||
| # | ||
| # Intended to replace work by the following(not sure where this is hosted): GNU General Public License Version 2 Copyright (C) 2011 - 2012, Lefteris Zafiris | ||
| # <zaf.000@gmail.com> | ||
| # | ||
| # | ||
| # The script takes as input flac files at 8kHz and returns the following values: status : Return status. 0 means success, non zero values indicating different | ||
| # errors. | ||
| # | ||
| # Outputs a voice transcription that satisfies the input of sendmailmp3 for freepbx authored by the above Zafiris I am by no means an expert with the perl | ||
| # language, Please forgive any blaring ugliness :) | ||
|
|
||
| use utf8; | ||
| use MIME::Base64; | ||
| use strict; | ||
| use warnings; | ||
| use LWP::UserAgent; | ||
|
|
||
| my $apiKey = $ARGV[0]; | ||
| my $url = "https://speech.googleapis.com/v1beta1/speech:syncrecognize?key=${apiKey}"; | ||
|
|
||
| my @file_list = $ARGV[1]; foreach my $file | ||
| (@file_list) { | ||
| open(my $fh, "<", "$file") or die "Cant read file: $!"; | ||
| my $audio = do { local $/; <$fh> }; | ||
| close($fh); | ||
|
|
||
| my $flac = encode_base64url($audio); | ||
|
|
||
| my $json = '{"config":{"encoding":"LINEAR16","sample_rate":16000,"language_code":"fr-FR"},"audio":{"content":"' . $flac . '"}}'; | ||
|
|
||
| my $req = HTTP::Request->new( 'POST', $url ); | ||
| $req->header( 'Content-Type' => 'application/json' ); | ||
| $req->content( $json ); | ||
|
|
||
| my $lwp = LWP::UserAgent->new; | ||
| my $response = $lwp->request($req); | ||
|
|
||
| #print $response->as_string; #debug output google's reply headers and message | ||
| last if (!$response->is_success); | ||
|
|
||
| print $response->content; #debug output the full transcript | ||
| } | ||
|
|
||
| sub encode_base64url{ | ||
| my($data) = @_; | ||
| return 0 unless $data; | ||
| $data = encode_base64($data); | ||
| $data =~ s/\+/-/g; | ||
| $data =~ s/\//_/g; | ||
| $data =~ s/\=//g; | ||
| $data =~ s/\n//g; | ||
| return($data); | ||
| } | ||
| exit; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
File renamed without changes.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters