perl script notes

gistfile1.txt

// normal notes
@notes=qw{A A# B C C# D D# E F F# G G#}; 
printf("%-3s %8.3f\n", 
sprintf("%s%d", $notes[($_)%12], int(($_+9)/12)), 
27.5 * 2**($_/12)) for (0 .. 87)'

// quarter tones
@notes = qw { A A# B C C# D D# E F F# G G# };
printf("%-4s %8.3f\n", 
sprintf("%s%s%d", $notes[$_ % 12], ((int($_) == $_) ? "" : "+"), int(($_ + 9) / 12)), 
27.5 * 2 ** ($_ / 12)) for (map {$_ / 2}(0..2 * 87))
 
 
 
A0     27.500
undefined+0   28.306
A#0    29.135
undefined+0   29.989
B0     30.868
undefined+0   31.772
C1     32.703
undefined+1   33.661
C#1    34.648
undefined+1   35.663
D1     36.708
undefined+1   37.784
D#1    38.891
undefined+1   40.030
E1     41.203
undefined+1   42.411
F1     43.654
undefined+1   44.933
F#1    46.249
undefined+1   47.605
G1     48.999
undefined+1   50.435
G#1    51.913
undefined+1   53.434
A1     55.000
undefined+1   56.612
A#1    58.270
undefined+1   59.978
B1     61.735
undefined+1   63.544
C2     65.406
undefined+2   67.323
C#2    69.296
undefined+2   71.326
D2     73.416
undefined+2   75.567
D#2    77.782
undefined+2   80.061
E2     82.407
undefined+2   84.822
F2     87.307
undefined+2   89.865
F#2    92.499
undefined+2   95.209
G2     97.999
undefined+2  100.870
G#2   103.826
undefined+2  106.869
A2    110.000
undefined+2  113.223
A#2   116.541
undefined+2  119.956
B2    123.471
undefined+2  127.089
C3    130.813
undefined+3  134.646
C#3   138.591
undefined+3  142.652
D3    146.832
undefined+3  151.135
D#3   155.563
undefined+3  160.122
E3    164.814
undefined+3  169.643
F3    174.614
undefined+3  179.731
F#3   184.997
undefined+3  190.418
G3    195.998
undefined+3  201.741
G#3   207.652
undefined+3  213.737
A3    220.000
undefined+3  226.446
A#3   233.082
undefined+3  239.912
B3    246.942
undefined+3  254.178
C4    261.626
undefined+4  269.292
C#4   277.183
undefined+4  285.305
D4    293.665
undefined+4  302.270
D#4   311.127
undefined+4  320.244
E4    329.628
undefined+4  339.286
F4    349.228
undefined+4  359.461
F#4   369.994
undefined+4  380.836
G4    391.995
undefined+4  403.482
G#4   415.305
undefined+4  427.474
A4    440.000
undefined+4  452.893
A#4   466.164
undefined+4  479.823
B4    493.883
undefined+4  508.355
C5    523.251
undefined+5  538.584
C#5   554.365
undefined+5  570.609
D5    587.330
undefined+5  604.540
D#5   622.254
undefined+5  640.487
E5    659.255
undefined+5  678.573
F5    698.456
undefined+5  718.923
F#5   739.989
undefined+5  761.672
G5    783.991
undefined+5  806.964
G#5   830.609
undefined+5  854.948
A5    880.000
undefined+5  905.786
A#5   932.328
undefined+5  959.647
B5    987.767
undefined+5 1016.710
C6   1046.502
undefined+6 1077.167
C#6  1108.731
undefined+6 1141.219
D6   1174.659
undefined+6 1209.079
D#6  1244.508
undefined+6 1280.975
E6   1318.510
undefined+6 1357.146
F6   1396.913
undefined+6 1437.846
F#6  1479.978
undefined+6 1523.344
G6   1567.982
undefined+6 1613.927
G#6  1661.219
undefined+6 1709.896
A6   1760.000
undefined+6 1811.572
A#6  1864.655
undefined+6 1919.294
B6   1975.533
undefined+6 2033.421
C7   2093.005
undefined+7 2154.334
C#7  2217.461
undefined+7 2282.438
D7   2349.318
undefined+7 2418.158
D#7  2489.016
undefined+7 2561.950
E7   2637.020
undefined+7 2714.291
F7   2793.826
undefined+7 2875.691
F#7  2959.955
undefined+7 3046.689
G7   3135.963
undefined+7 3227.854
G#7  3322.438
undefined+7 3419.792
A7   3520.000
undefined+7 3623.144
A#7  3729.310
undefined+7 3838.587
B7   3951.066
undefined+7 4066.841
C8   4186.009