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

Annuncio pubblicitario

  • Rating:
  • Licenza:
  • Perl Artistic License
  • Prezzo:
  • FREE
  • 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