サイボウズで学んだこと - IT戦記
はじめに 2010 年 9 月 15 日を持ちまして、サイボウズ・ラボを退職いたしたました。 報告も兼ねて、久しぶりにブログを書いてみたいと思います。 （写真はゆうすけべーさんです） この会社に入って、たくさんの学びと思い出がありました。 その一つ一つをまとめていければ、素晴らしい記事になるのかもしれませんが、僕は文章が苦手です。 ですので、うまく退職のエントリを書き上げることができません。 言葉にできない。そんな感じです。 なので、このエントリはサイボウズ・ラボやサイボウズ本社の仲間たちへのありがとうの気持ちをこめて、自分らしく最後まで JavaScript のことを書きたいと思います。 サイボウズでの最後の仕事 僕にとって、サイボウズでの最後の仕事は「JavaScript で新しいユーザーインタフェースを作ること」でした。 そして、その中で始めて複数人による大規模な JavaScrip
Perl スクリプトに assertion code を埋め込みたいのだが。。。: 国民宿舎はらぺこ 大浴場
それっぽいモジュールは存在するのだが。。。 一応 Test::Harness::Assert というのが現行の Perl には標準ライブラリとして備わっている。ちなみに、Carp::Assert なんてのも存在していて、(エーゴが苦手なりに) 流し読んでみた感触からしてこっちの方がやりたいことに近いようではあるのだが、残念ながらこちらは標準ライブラリではないため、自分が書いたプログラムのユーザーにモジュールのインストールを要求しなければならないことになり、プログラムの配布を考えている場合にはあまり現実的ではない。 Test::Harness::Assert は assert (3) (所謂 ANSI C の assert マクロ) に似たインタフェースを提供してくれるようだが、assert (3) と違って本番リリース向けにはコンパイルの対象から外されるということは無い。assertion
Perl スクリプトに assertion code を埋め込む実験中: 国民宿舎はらぺこ 大浴場
この記事の続きというか後日談というか。現在製作中の若干大きめのプロジェクトにおいて、自作の assertion code がそれなりに役立っているので、一応現状使っているものとほぼ等価のコードを示しておこうと思う。 sub assert (&) { return unless $debug_mode; shift->() and return; # assertion 失敗時の処理 my (undef, $filename, $line) = caller; my $main_file = main::__FILE__; print STDERR <<ENDLINE; $main_file: Assertion faild at $filename line $line ** Call stack ** ENDLINE my $i = 0; while (my ($pkg, $file,
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
