| Musica :: Chord :: Namer Musica :: Chord :: Namer - Dai nota, nomina l'accordo. |
Scarica ora |
Musica :: Chord :: Namer Classifica e riepilogo
- Licenza:
- Perl Artistic License
- Nome editore:
- Jimi-Carlo Bukowski-Wills
- Sito web dell'editore:
- http://search.cpan.org/~jimi/Music-Chord-Namer-0.01/lib/Music/Chord/Namer.pm
Musica :: Chord :: Namer Tag
Musica :: Chord :: Namer Descrizione
Musica :: Chord :: Namer - Lo dai note, nomina l'accordo. Musica :: Chord :: Namer - Lo dai Note, nomina la musica Chord.Synopsis Usa musica :: ChordName QW / ChordName /; Stampa ChordName (QW / C E G /); # Stampa C STAMPA CHORDNAME (Q / C E G /); # stesso (sì, array o stringa!) Stampa Chordname (QW / C EB G BB D /); # Stampe CM9 Stampa ChordName (QW / G C EB BB D /); # stampe cm9 / gmusic :: chordname esportazioni facoltativamente una sub, chordname, che accetta alcune note come una stringa o un elenco e restituisce il miglior nome dell'accordo che può pensare a.Exportnone di default.wnamesarray = ChordName ($ Notesstring | @notesarray) Chordname () accetta una stringa di note come "C EB GA #" o un elenco di note come QW / AB BB BB D /. In un contesto scalare restituisce il nome migliore che potrebbe pensare di descrivere l'accordo fatto dalle note che l'hai data. In un contesto di array restituisce tutti i nomi che ha pensato, ordinati dal meglio al peggiore (il più breve a più lungo!) Esempi # per stampare un gruppo di nomi di accordi per chitarra con a Lesta 4 note ciascuna, # Tutto sotto il 5 ° Fret ... foreach My $ S1 (QW / - EF GB G AB /) {foreach My $ S2 (QW / - A BB BC DB /) {foreach My $ 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 = (); spingere @notes, $ s1 a meno che $ S1 EQ '-'; spingere @notes, $ s2 a meno che $ S2 EQ '-'; spingere @notes, $ s3 a meno che $ S3 EQ '-'; spingere @notes, $ s4 a meno che $ S4 EQ '-'; spingere @notes, $ S5 a meno che $ S5 EQ "-"; spingere @notes, $ s6 a meno che $ S6 EQ '-'; se (@notes> = 4) {stampa scalare (chordname (@notes)), '=', join ('', @ note), "n"; } } } } } } } Requisiti: · Perl.
Musica :: Chord :: Namer Software correlato