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

AUTHOR

  • turugina (虎王 剱奈)
  • E-mail: turugina {at} floralcompany.jp
  • pixiv
  • ニジエ

2014年5月

        1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31

アーカイブ

OpenID対応しています OpenIDについて
Powered by Movable Type 5.2.10

- 警 告 -

本サイトにはいわゆる「18禁画像」(イラスト)へのリンクが存在します。 未成年の方や、その手の画像に不快感を覚える方は、 該当記事(「えちぃの」及び「ちょっとえちぃの」カテゴリ) をご覧にならないようお願いいたします。

上記を理解した上で非表示のブログパーツを表示する
あわせて読みたいブログパーツ
ついった
drawr/pixiv/twitpic