どんぞこ日誌

* [雑感] 勤務風景

　先日勤め先でバイトを募集しようということになりました。それで募集広告用の社内風景写真を撮ったのですが、その中から今日は皆様に何枚かをご紹介します（プライバシー保護のためモザイクかけてます）。

　　管理者近影：皆様ご存じの当サイト管理人です。
　　朝のミーティング：壇に立って報告をしています。
　　同僚との楽しい語らいの一時：見ての通りです。

　結局そのとき撮った写真は広告業者に拒否されたことを今日知りました。みんなで苦労して撮ったのに。　……風邪気味で熱っぽいです。

* [今月のAcme] Acme::Japarl（自作）

　　今日は台風のため半ドンになりました。思いがけず時間が出来たので今月のAcme。でもCPANモジュールではなく自作のやつです。例えば次のコードをみてみましょう。

print join('',reverse(split(//,$str)));

慣れていないとわかりにくいですね。そこでAcme::Japarlです。これを使うとこうなります。

出力 結合('',逆転(分割('',$変数)));

ほら、なんてわかりやすいんでしょう。

 use Acme::Japarl 'euc-jp' => 'shiftjis';
 my $ほげ = "これはテストです";
 my @配列 = 0..8;
 my @ふー;
 
 出力 結合('',逆転(分割('',$ほげ))),改行;
 # print 'すでトステはれこ'
 
 反復 { $_++ } @配列;             
 # <=> for(@array){ code }
 
 @ふー = 倶列附 { $_ % 2 } @配列;
 # <=> grep { condition } @array
 出力 @ふー,改行;
 
 @ふー = 地図 { $_, $_ * 2 } @ふー;
 # <=> map { code } @array
 
 my $条件 = 1;
 もし     {$条件 == 1} ならば { 出力 "ok\n" }
 あるいは {$条件 == 2} ならば { 出力 "elsif1\n" }
 しからずんば                 { 出力 "else\n"   };
 
 出力 木魚();
 
 sub 木魚 {
        帰還 'ぽくぽく';
 }

* [メモ] 恫喝

　虚偽の歴史を押し付ける。自分の気に入らないことについては言論の自由を認めたくない人達のお話。