PerlのWin32::MIDIモジュールを使って「未知との遭遇」のメロディを演奏する
PerlのWin32::MIDIモジュールを使って「未知との遭遇」のメロディを演奏してみましょう。
Windows XPのActivePerlで動作確認しました。
インストール
コマンドラインから以下のように入力します。
ppm install Win32::MIDI
スクリプト
以下のようなcontact.plというスクリプトを用意します。
use strict; use warnings; use Win32::MIDI; my $dur = 1; my $vel = 127; my $m = Win32::MIDI->new(); $m->openDevice(0); $m->cur_octave(4); $m->play_note('D', $dur, $vel); $m->play_note('E', $dur, $vel); $m->play_note('C', $dur, $vel); $m->cur_octave(3); $m->play_note('C', $dur, $vel); $m->play_note('G', $dur * 3, $vel); $m->closeDevice();
実行
perl contact.pl
詳細
詳しい使い方は、perldoc Win32::MIDIで参照できます。