Discurso :: Reconhecedor :: Sclite

Speech :: Reconhecedor :: Sclite é um invólucro baseado em objeto em torno da ferramenta Sclite do NIST SCTK.
Baixe Agora

Discurso :: Reconhecedor :: Sclite Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Jeremy Kahn
  • Site do editor:
  • http://search.cpan.org/~kahn/Speech-Recognizer-ScLite-0.01/ScLite.pm

Discurso :: Reconhecedor :: Sclite Tag


Discurso :: Reconhecedor :: Sclite Descrição

Speech :: Reconhecedor :: Sclite é um invólucro baseado em objetos em torno da ferramenta Sclite do NIST SCTK. Speech :: Reconhecedor :: Sclite é um invólucro baseado em objeto em torno da ferramenta Sclite a partir do nist sctk.synopsis # reúne as leituras corretas e hipóteses que você gosta. # Aqui eu suponho que você os tê em dois arquivos de texto que podem ser analisados # com sucesso pelo Toy Sub Read_Trans abaixo. minhas (% corretas_readings) = read_trans ('correct.txt'); minhas (% hyp_readings) = read_trans ('hipotheeses.txt'); # O trabalho real começa aqui use fala :: Reconhecedor :: Sclite; # alterar o nome executável padrão ('sclite') ou um caminho para o discurso dele :: Reconhecedor :: Sclite-> executável ('/ usr / site / bin / sctk-1-04 / sclite-1-04'); Meu ($ sagrador) = discurso :: Reconhecedor :: Sclite-> Novo ('Result_Location' => './test_17', id => 'sexo'); # que deve aumentar o cpan hits foreach my line (sort keys% hyp_readings) {# construa um objeto para representar esta versão # construa qualquer tipo de tipo que você deseja. Aqui nós assumimos que estamos interessados em quebrar os arquivos com base em qual diretório # eles estão dentro. Meu ($ l) = fala :: reconheciz :: sclite :: linha-> novo (ref => $ correcta_creadings { $ line}, hyp => hyp_readings {$ line}, sort_key => getsort ($ line)); $ scorer-> linhas_push ($ l); } # Fim de loop sobre os nomes de arquivos. # calcula o desempenho real da ASR, dado acima da informação $ scorer-> pontuação (); # despeja um relatório mais novo na -> Result_Location; # $ scorer-> relatório (); # atualmente um no-op desde a pontuação () invoca # função de relatórios dentro do próprio Utilitário SCLite ####################################### ######################################## # Teclado subs definido abaixo por causa da integridade do exemplo #. sub leitura_trans {minhas (% de transcrições); aberto (arquivo, mudança); # ou morrer, claro, enquanto () {chomp; meu ($ trans, $ file) = dividir; $ transcrições {$ file} = $ trans; } Fechar Arquivo; # ou morrer, é claro que retornar% de transcrições; } # Esta rotina de tipo de brinquedo retorna o sexo do alto-falante como a tecla Sort #, em vez do diretório de alto-falante (padrão). sub getsort {my ($ filename) = shift; retorno ($ filename = ~ / feminino / eu? 'feminino': 'macho'); } Requisitos: · Perl.


Discurso :: Reconhecedor :: Sclite Software Relacionado