トップ > Perl

Perl

SkypeのチャットログのSQLiteをhtml出力する

Perl

Skype4のチャットログはC:\Users\ユーザ名\AppData\Roaming\Skype\アカウント名のmain.dbのMessagesテーブルの中に他人の発言も全部あります。*1これをHTML出力したいと思います。 main.dbファイルの調査は、id:Pupさんの"PupSQLite"を使わせてもらいました…

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. f…

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); $…

Win32::APIを使ってデスクトップの背景を変える

Perl

Vistaで動作確認。 #!/usr/bin/perl use strict; use warnings; use Win32::API; my $SPI = Win32::API->new("user32", "SystemParametersInfo", "NNPN", "N"); my $SPI_SETDESKWALLPAPER = 20; my $IMG_PATH = "c:\\ashibe.bmp"; my $fWinIni = 0; #一時的…