Muziek :: Chord :: NAMERER

Muziek :: Chord :: NAMER - U geeft het notities, het noemt het akkoord.
Download nu

Muziek :: Chord :: NAMERER Rangschikking & Samenvatting

Advertentie

  • Rating:
  • Vergunning:
  • Perl Artistic License
  • Prijs:
  • FREE
  • Naam uitgever:
  • Jimi-Carlo Bukowski-Wills
  • Uitgever website:
  • http://search.cpan.org/~jimi/Music-Chord-Namer-0.01/lib/Music/Chord/Namer.pm

Muziek :: Chord :: NAMERER Tags


Muziek :: Chord :: NAMERER Beschrijving

Muziek :: Chord :: NAMER - U geeft het opmerkingen, het noemt het akkoord. Muziek :: Chord :: NAMEER - U geeft het opmerkingen, het noemt het akkoord. Synopsis Gebruik Muziek :: Chordname QW / CHORDNAME /; Print ChordName (QW / C E G /); # print c print-chordname (Q / C E G /); # hetzelfde (ja, array of string!) Print ChordName (QW / C EB G BB D /); # Prints CM9 afdrukken Chordname (QW / G C EB BB D /); # Prints CM9 / GMUSIC :: Chordname Evalual exporteert één sub-, chordname, die sommige notities accepteert als een tekenreeks of een lijst en retourneert de beste akkoordnaam die het kan bedenken.Exportnone standaard. NotesString | @NotesArray) Chordname () accepteert een reeks opmerkingen zoals "C EB GA #" of een lijst met noten zoals QW / AB BB F BB D /. In een scalaire context retourneert het de beste naam die het zou kunnen bedenken om het akkoord te beschrijven gemaakt van de opmerkingen die je hebt gegeven. In een array context retourneert het alle namen die het dacht aan, gesorteerd van de beste tot het slechtste (kortste tot langst!) Voorbeelden # om een stel gitaar akkoordnamen te printen met op Lest 4 Opmerkingen elk, # allemaal onder de 5e fret ... Foreach My $ S1 (QW / - EF GB G AB /) {Foreach My $ S2 (QW / - A BB BC DB /) {Foreachy my $ s3 (QW / - D EB EF GB /) {Foreach My $ S4 ( QW / - G AB A BB /) {Forreach My $ S5 (QW / - BC DB D EB /) {Forreach My $ S6 (QW / - EF GB G AB /) {MY @NOTES = (); Duw @notes, $ S1 tenzij $ S1 EQ '-'; Duw @Notes, $ S2 tenzij $ S2 EQ '-'; Duw @notes, $ S3 tenzij $ S3 EQ '-'; Duw @notes, $ S4 tenzij $ S4 EQ '-'; Duw @notes, $ S5 tenzij $ S5 EQ '-'; Duw @notes, $ S6 tenzij $ S6 EQ '-'; if (@notes> = 4) {Print Scalar (chordname (@notes)), '=', join ('', @ notities), "n"; } } } } } } } Vereisten: · Perl


Muziek :: Chord :: NAMERER Gerelateerde software