Cody Fendant has asked for the wisdom of the Perl Monks concerning the following question:
I had the task of transposing some guitar chords the other day. A very simple form of music notation along the lines of:
needing to go up a semitone toC F G G7
C# F# G# G#7
And I thought "this will be easy to do with perl..."
This is the best I could come up with:
use strict; use warnings; my %notes_hash = ( 'A' => 0, 'A#' => 1, 'B' => 2, 'C' => 3, 'C#' => 4, 'D' => 5, 'D#' => 6, 'E' => 7, 'F' => 8, 'F#' => 9, 'G' => 10, 'G#' => 11 ); my @notes_array = ( sort( keys(%notes_hash) ) ); sub transpose { my ( $note, $amount ) = @_; my ( $base_note, $modifiers ) = $note =~ m/^([ABCDEFG]#?)(.*)/; return $notes_array[ ( ( $notes_hash{$base_note} + $amount ) % 12 ) ] . $modifiers; } print transpose( 'C#7', 1 );
But as you can see, it's not elegant. I'm curious how other Monks might approach this problem.
[Musical scales are modular, in case Monks don't know.]
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Transpose guitar chords
by ELISHEVA (Prior) on Feb 23, 2011 at 06:34 UTC | |
by Anonymous Monk on Feb 27, 2011 at 17:56 UTC | |
by ELISHEVA (Prior) on Feb 27, 2011 at 18:58 UTC | |
by Anonymous Monk on Feb 28, 2011 at 01:22 UTC | |
Re: Transpose guitar chords
by ig (Vicar) on Feb 23, 2011 at 05:15 UTC | |
Re: Transpose guitar chords
by johngg (Canon) on Feb 23, 2011 at 14:32 UTC |
Back to
Seekers of Perl Wisdom