フリークアウト 3 年目の終わり。 - Drawer
2013-09-30 フリークアウト 3 年目の終わり。 本日 2013 年 9 月 30 日で、株式会社フリークアウトができて 丸 3 年になります。 設立当時、 中学 3 年生、詰め襟着てた男子が今や高 3 の秋口で、しっかり自分で計画を立てて受験勉強をしていたり、彼女にディナーをオゴったりする男性になっているのでしょう。第二次性徴、思春期と比較すると自分自身の成長はこの 3 年、非常に遅々としたものでしたし、会社も、もっともっとうまく成長させられたはずだと不甲斐なさを感じます。 同時に、ゼロから 3 年で数十億の売上を生み出すダイナミズムを体感でき、何より 100 人近い仲間ができたこと、そして国内外 数百人以上のビジネスパートナーと協力し合える機会を得られたことは、本当に何者にも代え難い経験だったと感謝しています。 週末、そんなことを考えながら、先輩企業の 三期目の事業実績を追って
Perlでコールスタック上のサブルーチンの引数を得る - Islands in the byte stream (legacy)
@DB::args でできます。 use strict; use warnings; use Data::Dumper; sub foo { bar(1, 2, 3) } sub bar { package DB { our @args; my $i = 0; while (() = caller $i) { print "$i: ", ::Dumper \@args; $i++; } } } foo('a', 'b', 'c'); outout: 0: $VAR1 = [ 1, 2, 3 ]; 1: $VAR1 = [ 'a', 'b', 'c' ]; もともとデバッガAPIの一部なので使い方はかなりマジカルで、DBパッケージ内でcaller()に引数を与えてかつリストコンテキストで評価すると@DB::argsにそのコールスタックでの引数がセットされるというものになっています。 以下pe
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
