Win32::APIでマリオを演奏する
#!/usr/bin/perl use strict; use warnings; use Win32::API; my $SPI = Win32::API->new("kernel32", "Beep", "NN", "N"); $SPI->Call(329.63,200); #ミ $SPI->Call(329.63,200); #ミ $SPI->Call(0,100); $SPI->Call(329.63,200); #ミ $SPI->Call(0,100); $SPI->Call(261.63,200); #ド $SPI->Call(329.63,200); #ミ $SPI->Call(0,100); $SPI->Call(392,200); #ソ $SPI->Call(0,600); #------ここまで出来てる。---- #後は誰かやって。 $SPI->Call(261.63,200); #ド $SPI->Call(0,200); $SPI->Call(392,200); #ソ $SPI->Call(0,200); $SPI->Call(329.63,200); #ミ $SPI->Call(0,100); $SPI->Call(440,200); #ラ $SPI->Call(0,200); $SPI->Call(493.88,200); #シ $SPI->Call(0,100); $SPI->Call(440,200); #ラ $SPI->Call(0,100); $SPI->Call(466.16,300); #ラ# $SPI->Call(0,200); $SPI->Call(392,200); #ソ $SPI->Call(0,200); $SPI->Call(329.63,200); #ミ $SPI->Call(0,200); $SPI->Call(392,200); #ソ $SPI->Call(0,200); $SPI->Call(440,200); #ラ $SPI->Call(0,200); $SPI->Call(369.99,200); #ファ $SPI->Call(0,200); $SPI->Call(392,200); #ソ $SPI->Call(0,100); $SPI->Call(329.63,200); #ミ $SPI->Call(0,100); $SPI->Call(261.63,200); #ド $SPI->Call(0,100); $SPI->Call(293.66,200); #レ $SPI->Call(0,100); $SPI->Call(493.88,200); #シ
感想
Audio::Beep見つける前にこれ作ったんだけど無理。