| use strict; | |
| use warnings; | |
| use Benchmark 'cmpthese'; | |
| cmpthese( -1, { | |
| function => sub { my $hoge = 1; $hoge = negate($hoge) }, | |
| neg => sub { my $hoge = 1; $hoge = - $hoge }, | |
| minus => sub { my $hoge = 1; $hoge = 0 - $hoge }, | |
| multi => sub { my $hoge = 1; $hoge *= -1 }, | |
| bit => sub { use integer; my $hoge = 1; $hoge = 1 + ~$hoge }, | |
| } ); |
| use strict; | |
| use warnings; | |
| use feature 'say'; | |
| use AE; | |
| use AnyEvent::IRC::Server; | |
| use AnyEvent::IRC::Util; | |
| use Getopt::Long; | |
| use Yancha::Client; | |
| use LWP::UserAgent; | |
| use AnyEvent::IRC::Client; |
| package Yairc::Plugin::OXGame; | |
| =pod | |
| ○×ゲーム | |
| ３×３のマスに○と×を交互に置いて | |
| タテ・ヨコ・ナナメ３連続になった方の勝ち | |
| タグは #ox | |
| まずはTAGSにoxを追加しておきましょう。 |
この文章は http://www.adobe.com/jp/joc/max2011/cyb/index.html (Adobe MAX 2011 : 上司の説得が必要な方へ)一般向けテンプレートが元ネタです。ネタを活かしきれていないですがご容赦を。（下記テンプレの文責はmakamakaに帰しますが、実際に使用した結果の責任は負いかねます）
#上司の説得が必要な方へ
「YAPC::Asia Tokyo 2011に参加したいが、上司が首を縦に激しく振ってくれない」という方のために、YAPC::Asiaに参加するメリットをアピールするための文章テンプレートを用意しました。ぜひ、カスタマイズしてご利用ください。っていうか、そのまま使うのはおやめください。
| my @paths = @{$tx->{path}}; | |
| local $tx->{path}; | |
| local $tx->{template} = $tmpl{$foo} ||= {}; | |
| push @{$tx->{path}}, $path{$foo}, @paths; |
| # Data::MessagePack passes on 64bit box but fails on 32bit | |
| =pod | |
| XS and PP on v5.12.1 built for x86_64-linux-thread-multi | |
| pass all tests. | |
| XS on v5.12.0 built for i686-linux-thread-multi | |
| on v5.8.8 built for i686-linux-thread-multi |
| for q/Q options unsupported pack | |
| sub unpack_Q { | |
| my ( $v1, $v2 ) = unpack( 'N2', shift ); | |
| return $v1 * (2 ** 32) + $v2; | |
| }; | |
| sub unpack_q { | |
| my $v = shift; | |
| my ( $v1, $v2 ) = unpack( 'N2', $v ); |
| pack('d>', $double); unpack('d>', $unpacked_double); | |
| # pack, unpackに'>'が使えない場合、 | |
| # 下記で等価（$doubleの内部表現がリトルエンディアン） | |
| @v = unpack( 'V2', pack( 'd', $double ) ); | |
| $packed_double = pack( 'N2', @v[1,0] ); | |
| @v = unpack( 'V2', $packed_double ); | |
| $double = unpack( 'd', pack( 'N2', @v[1,0] ) ); |
| =pod | |
| perl -I./lib benchmark/serialize.pl | |
| -- serialize | |
| JSON::PP: 2.27003 | |
| Data::MessagePack::PP: 0.01 | |
| Rate mp json | |
| mp 158/s -- -15% | |
| json 186/s 18% -- |
| package Data::MessagePack::PP; | |
| use 5.008000; | |
| use strict; | |
| use B (); | |
| use Scalar::Util qw( blessed ); | |
| use Carp (); | |
| our $VERSION = '0.03'; |