Win32::APIでマリオを演奏する

Perl 
#!/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見つける前にこれ作ったんだけど無理。

関連