2009年10月アーカイブ

いやまぁ、歌じゃないですけど。

ハイドライドの曲を再生してると思ったらいつの間にかレイダース・マーチに変わっていたでござるの巻

hydraiders.mid

まずはこちらを。

use utf8;
use strict;
use warnings;
use Tk;
my $mw = MainWindow->new;

$mw->Label(-text => "\x{41}")->pack; # "A"
$mw->Label(-text => "\x{2600}")->pack; # BLACK SUN WITH RAYS
eval {
$mw->Label(-text => "\x{FE000}")->pack; # Google Emoji 晴れ 
};
warn $@ if $@;

use Encode;
use Encode::JP::Emoji;
use Encode::JP::Emoji::Fallback;
my $text = decode_utf8(
  encode('x-utf8-e4u-none', "\x{FE000}", FB_GOOGLE_TEXT())
);
$mw->Label(-text => $text)->pack;

MainLoop;

元ネタ → http://d.hatena.ne.jp/bleis-tift/20090930/1254309201
何か流行ってるみたいなので、やってみる。

perlは簡単すぎて面白くないので、

use List::Util qw/sum/;
print sum 1 .. (shift or 10);