#!/usr/bin/perl
use strict;
use Music::Scales;
foreach my $note qw (C C# Db D D# Eb E F F# Gb G G# Ab A A# Bb B) {
foreach my $mode (1..30) {
my @notes = get_scale_notes($note,$mode);
print join(" ",@notes),"\n";
}
}
#!/usr/bin/perl
use strict;
use Music::Scales;
foreach my $note qw (C C# Db D D# Eb E F F# Gb G G# Ab A A# Bb B) {
foreach my $mode (1..30) {
my @notes = get_scale_notes($note,$mode);
print join(" ",@notes),"\n";
}
}