| Discorso :: riconoscimento :: SCLITE Discorso :: riconoscimento :: SCLITE è un wrapper basato su oggetti attorno allo strumento SCLITE dal NIST SCTK. |
Scarica ora |
Discorso :: riconoscimento :: SCLITE Classifica e riepilogo
- Licenza:
- Perl Artistic License
- Nome editore:
- Jeremy Kahn
- Sito web dell'editore:
- http://search.cpan.org/~kahn/Speech-Recognizer-ScLite-0.01/ScLite.pm
Discorso :: riconoscimento :: SCLITE Tag
Discorso :: riconoscimento :: SCLITE Descrizione
Discorso :: riconoscimento :: SCLITE è un wrapper basato su oggetti attorno allo strumento SCLITE dal NIST SCTK. Discorso :: riconoscimento :: SCLITE è un wrapper basato su oggetti intorno allo strumento SCLITE dal NIST SCTK.Synopsis # raccoglie le letture corrette e ipotizzate in qualsiasi modo che ti piace. # Qui presumo che tu li abbia in due file di testo che possono essere analizzati # con successo da Toy Sub Read_Trans di seguito. my (% correct_readings) = read_trans ('correct.txt'); My (% hyp_readings) = read_trans ('ipothesis.txt'); # Il lavoro reale inizia qui usa il discorso :: riconoscitore :: SCLITE; # alterare il nome eseguibile predefinito ('SCLITE') Nome eseguibile o un percorso per la parola Voce :: riconoscitore :: SCLITE-> Eseguibile ('/ usr / sito / bin / SCTK-1-04 / SCLITE-1-04'); My ($ Scorer) = Speech :: riconoscitore :: SCLITE-> Nuovo ('Result_Location' => './TEST_17', ID => 'Sex'); # che dovrebbe aumentare i colpi di CPC foreach per la mia linea $ (Story Keys% hyp_readings) {# Construct Un oggetto per rappresentare questa versione # Costruire qualsiasi tasto di ordinamento desiderato. Qui supponiamo che siamo # interessati a scoppiare i file basati su quale directory # sono in. My ($ L) = Speech :: riconoscitore :: SCLITE :: LINEA-> NUOVO (REF => $ CORRED_Readings { $ LINE}, HYP => HYP_READINGS {$ LINE}, SORT_KEY => GESTIONT ($ LINE)); $ scorer-> linee_push ($ l); } # fine del looping sui nomi dei file. # calcola le prestazioni ASR reali, fornite sopra informazioni $ scorer-> Punteggio (); # dump un rapporto gradevole nel -> Result_location; # $ scorer-> report (); # Attualmente un no-op dal punteggio () invoca # funzione di segnalazione all'interno del programma di utilità per sé sclite ############################### ################################# # Toy Subs Definito di seguito per il bene della completezza dell'esempio #. sub read_trans {my (% trascrizioni); aperto (file, spostamento); # o morire, ovviamente mentre () {chomp; my ($ trans, $ file) = split; $ trascrizioni {$ file} = $ trans; } File stretto; # o muoiono, naturalmente ritorno% trascrizioni; } # Questa routine di ordinamento del giocattolo restituisce il sesso dell'altoparlante come tasto Ordinamento #, anziché la directory (predefinita) dell'altoparlante. sub getsort {my ($ filename) = shift; ritorno ($ filename = ~ / femmina / I? 'Femmina': 'maschio'); } Requisiti: · Perl.
Discorso :: riconoscimento :: SCLITE Software correlato