| Música :: CHORD :: Namer Music :: Chord :: Namer - Você dá notas, ele nomeia o acorde. |
Baixe Agora |
Música :: CHORD :: Namer Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Jimi-Carlo Bukowski-Wills
- Site do editor:
- http://search.cpan.org/~jimi/Music-Chord-Namer-0.01/lib/Music/Chord/Namer.pm
Música :: CHORD :: Namer Tag
Música :: CHORD :: Namer Descrição
Música :: CHORD :: Namer - Você dá notas, ele nomeia o acorde. Música :: CHORD :: Namer - Você dá notas, ele nomeia o CHORD.SYNOPSIS Use música :: CHORDNAME QW / CHORDNAME /; Imprimir CHORDNAME (QW / C E G /); # Imprime C Imprimir ChordName (Q / C E /); # mesmo (sim, matriz ou string!) Imprimir CHORDNAME (QW / C EB G BB D /); # Imprime CM9 Imprimir ChordName (QW / G C EB BB D /); # imprime cm9 / gmusic :: chordname opcionalmente exporta um sub, chordname, que aceita algumas notas como uma string ou uma lista e retorna o melhor nome de acorde que pode imaginar.Exportnone por padrão.ole.ole.ole ($ NotavesTring | @notesarray) CHORDNAME () aceita uma série de notas como "C EB GA #" ou uma lista de notas como QW / AB BB F BB D /. Em um contexto escalar, ele retorna o melhor nome que pode pensar em descrever o acorde feito das notas que você deu. Em um contexto de matriz, ele retorna todos os nomes que pensava, classificados do melhor para o pior (mais curto para mais longo!) Exemplos # Para imprimir um monte de nomes de acordes de guitarra com a mais para a mais 4 Notas, # todos abaixo da 5ª ... foreach meu $ S1 (QW / - EF GB G AB /) {foreach My $ S2 (QW / - A BB BC DB /) {foreach Meu $ S3 (QW / - D EB EF GB /) {foreach My $ S4 ( QW / - G AB A BB /) {foreach My $ S5 (QW / - BC DB D EB /) {foreach My $ S6 (QW / - EF GB G AB /) {My @Notes = (); empurrar @notes, $ S1 a menos $ S1 eq '-'; empurre @notes, $ S2 a menos $ S2 eq '-'; empurrar @notes, $ S3 a menos $ S3 EQ '-'; empurre @notes, $ S4 a menos $ S4 eq '-'; empurre @notes, $ S5 a menos $ S5 eq '-'; empurre @Notes, $ S6 a menos $ S6 EQ '-'; if (@Notes> = 4) {Imprimir Scalar (CHORDNAME (@Notes)), '=', junte ('', @ Notes), "N"; }}}}}}} Requisitos: · Perl.
Música :: CHORD :: Namer Software Relacionado