[B! autobox] hakobe932のブックマーク

tokuhirom blog

Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at

hakobe932 2008/06/03

これはすっきり

perl
autobox

リンク

http://blog.yappo.jp/yappo/archives/000559.html

hakobe932 2008/01/25

perl
autobox

リンク

tokuhirom blog

Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at

hakobe932 2008/01/24

リンク

Perl の autobox で遊ぶ - 2008-01-19 - naoyaのはてなダイアリー

autobox を使ったコードをここ最近よく見たので、ややいまさらですが自分もすこし遊んでみました。autobox は Perl の組み込みのデータ (bless されていないスカラー、リスト、ハッシュほか) をファーストクラスオブジェクトとして扱うための機構を提供するモジュール(レキシカルプラグマ)です。 #!/usr/local/bin/perl use strict; use warnings; use FindBin::libs; use autobox; use autobox::Core; use autobox::Encode; use autobox::Hatena::Feed; use autobox::Accessor; shift->b(qw/perl autobox/)->it ems->foreach(sub { $_[0]->title->encode('utf

hakobe932 2008/01/20

リンク

autobox

NAME autobox - call methods on native types SYNOPSIS use autobox; # integers my $range = 10->to(1); # [ 10, 9, 8, 7, 6, 5, 4, 3, 2, 1 ] # floats my $error = 3.1415927->minus(22/7)->abs(); # strings my @list = 'SELECT * FROM foo'->list(); my $greeting = "Hello, world!"->upper(); # "HELLO, WORLD!" $greeting->for_each(\&character_handler); # arrays and array refs my $schwartzian = @_->map(...)->sort(