僕のYak Shavingは終わらない

車輪の再発明をやめたらそこには壮大なYakの群れが

2013-06-01から1ヶ月間の記事一覧

perlでreturnのデフォルと引数は、

return wantarray ? () : undef; なので #!/usr/bin/env perl use strict; use warnings; use utf8; use feature 'say'; use Data::Dump qw/dump/; say dump sub{return }->(); say dump scalar sub{return }->(); __END__ 出力結果 () undef そっかーそっか…

PlackでとりあえずJSONだけ返すサーバーを立てる

メモです。下のjsonに特に意味はありません。 API完成を待っていて開発進まない的なシチュエーションがあったのでつくりました。他の言語だとどうなるんでしょうね?app.psgi #!/usr/bin/env perl use strict; use warnings; use Plack::Request; my $json =<<EOF; { "items":[ { "year" : 1954 }, { "year" : 2000 } ] } EOF sub { my $req = Plack::Request-></eof;>…

社内でCPAN Authorになろうハッカソンを開催しました!!

とりあえずCPANAuthorになりたくてやった。後悔はしてない。 / “kazuph/Acme-Tategaki · GitHub” http://t.co/o3gdjA3Zhn— kazuph (@kazuph) 2013, 6月 16※追記(2013/06/17)…人生初の知人でない人からpull req来ましたとても嬉しいです。Perl界ではMinillaと…