■

09:00〜20:30(移動含む)
しばらくは時給800円ではなくて、日給4800円らしいですよ。
今日はテストとかやったり。

$ perl -e 'print dom( q(abc@example.com) ); sub dom{($_)=@_; return (/@(.*)/)[0];}'
example.com

とか、

$ perl -e 'print com(-11111111); sub com{($_)=@_; while(s/(\d+)(\d\d\d)/$1,$2/){};return $_}'
-11,111,111

みたいなのを、C言語でっていうテスト。最近Perlばっかりで、Cで文字列なんてかんなりひさしぶりですよ、で、だいぶ時間がかかったり。やっぱりPerlだとわかりやすく書けるなぁ*1。
来週は、サンプルを新しく、らしいですよ。

*1:これでわかりやすいって、いったいCでどんなの書いたんだよ、とかいう話。