--
我的博客 -- http://blog.yixinit.com/
诸法从缘起，如来说是因。
彼法因缘尽，是大沙门说。
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
网上论坛: http://groups.google.com/group/perlchina/topics
joe jiang <lamp.purl@gmail.com> Dec 20 01:56PM +0800
=for advent_year 2011
=for advent_day 19
=for advent_title Music::Chord::Note
=for advent_author Joe Jiang
对于喜欢乐器的人来说，常常需要了解和弦，但是如果小时候没有好好学习乐理，就会觉得十分遗憾。
有了 Music::Chord::Note 这个模块，就能解决许多人的燃眉之急。
好比你手上有个用键盘播放音乐的软件（我用过 Real Guitar
http://www.musiclab.com/products/realgtr_info.htm），你摸索着很快就能弹奏最简单的和弦了（比如 C D
G）。但是对于那些复杂的，需要组合多个和弦才能演奏出来的呢（比如 C#m
Cm7）？一个一个组合的摸索就变得非常麻烦，这时候你需要的就是有个脚本来帮你列出隐藏在和弦背后的组合。
安装了 Music::Chord::Note 的话，你就可以这样做：
=begin code
% perl -MMusic::Chord::Note -le 'print join qq(, ),
Music::Chord::Note->new->chord(shift)' Cm7
C, D#, G, A#
=end code
这样看来，只要找到键盘上 C 和 D# 对应的键位就可以近似的演奏出 Cm7 了，如果不行，再同时按下 G 就行了，如果你能再加上
A#，四个键同时按就十分完美了。
而 D# 就是一个过度音，它的音调应该等同于 Eb，这点可以用另一个方法来证实：
=begin code
% perl -MMusic::Chord::Note -le 'print
Music::Chord::Note->new->scale(shift)' Eb
3
% perl -MMusic::Chord::Note -le 'print
Music::Chord::Note->new->scale(shift)' D#
3
=end code
这样，你就可以更进一步，立即享受演奏复杂和弦的乐趣了。感谢作者 Dai Okabayashi！
MetaCPAN link https://metacpan.org/module/Music::Chord::Note
最后附上简单的和弦音调列表：
=begin code
% perl -MMusic::Chord::Note -le '$cn = Music::Chord::Note->new; print
join qq(, ), map { $cn->scale($_) } qw(C Db D Eb E F Gb G A Bb B)'
0, 1, 2, 3, 4, 5, 6, 7, 9, 10, 11
=end code
您收到此邮件是因为您订阅了 Google 网上论坛 perlchina。
--
您可以通过电子邮件发帖。
要取消订阅此网上论坛，请发送一封空邮件。
有关更多选项，请访问此网上论坛。
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
=for advent_year 2011
=for advent_day 20
=for advent_title Unicode::Tussle
=for advent_author Joe Jiang
Unicode 类的模块非常多，Unicode::Tussle 是其中一个集大成者，作者是 brain d foy。它的主要作用非常简单，就是输出一些有用的脚本。这里介绍其中一个叫做 unichars 的脚本，能列出合乎 Unicode 属性的字符。
尝试的话请最好用比较自动化的 CPAN 安装工具，因为这个模块的依赖性比较强。可以参考去年的 Advent 的第一天，了解 cpanm 的安装和使用。另外这个脚本需要 Perl 14 以上版本才能测试通过，所以可以参考去年 Advent 的第四天，了解 perlbrew 的使用。
有了这个脚本，你就可以这样列出所有的中文字符：
=begin code
% unichars -ua '\p{Han}' | head -3
⺀ U+02E80 CJK RADICAL REPEAT
⺁ U+02E81 CJK RADICAL CLIFF
⺂ U+02E82 CJK RADICAL SECOND ONE
=end code
另外还有一个脚本也非常有用，可以用来列出某个字符的其他 Unicode 属性，名叫 uniprops：
=begin code
% uniprops 汉
U+6C49 ‹汉› \N{U+6C49}
\w \pL \p{L_} \p{Lo}
All Any Alnum Alpha Alphabetic Assigned InCJK_UnifiedIdeographs CJK_Unified_Ideographs L Lo Gr_Base Grapheme_Base Graph
GrBase Han Hani ID_Continue IDC ID_Start IDS Ideo Ideographic Letter L_ Other_Letter Print UIdeo Unified_Ideograph Word
XID_Continue XIDC XID_Start XIDS
=end code
还有其他的一些有用脚本，请自行查看手册逐一测试。相关博客：http://www.effectiveperlprogramming.com/blog/1232
博文
所有评论
