Audio::Beepを使ってChemical Brothersを演奏する

Perl

まずAudio::Beepをインストール。ActivePerlならppmを使う。

ppm install Audio::Beep

これでOK。

#!/usr/bin/perl
use Audio::Beep;

my $beeper = Audio::Beep->new();
my $music = "cis'8. cis8. es8. es8. gis8. gis8. f8. f8. f8. es8. cis8. es8. es8. f8. cis8 es8. es16";
$beeper->play( $music );
sleep(2);
$beeper->play( $music );

j_blgdsn感謝
id:JAPLJ++

試聴

家のビープを録音しました。
The Chemical Brothers - Saturate (mp3)

感想

人生初の打ち込み系。楽譜が読めなくてつらい。音の長さがちょっとちがうな。。

関連