おいぬま日報(不定期)

@ 補完は嫌いと言いつつ

昨日の日記を補完。最近は一言日記になってきたなぁ。

@ [admin] サーバ再起動

サーバ再起動のため、1/23(日) 10:30より10分程度アクセスできなくなります。

@ [work] 延長

1週間延長してくれと言われた。まぁよくある話ですね。

@ [perl] 無駄なコードを削る(1)

スクリプト言語をあまりやったことない人はよくこんな書き方をします(自分も昔こう書いてました)。

sub func {
    my %args = @_;
    my $hoge = 'fuga';
    if (defined $args{hoge}) {
        $hoge = $args{hoge};
    }
    # なんか処理
}

でもこれは下記のように書くことが出来ます。

sub func {
    my %args = @_;
    my $hoge = $args{hoge} || 'fuga';
    # なんか処理
}

なんとこれを知っているだけで3行もコードが節約出来るんです。こういう処理は比較的よく書くので、これだけでなかなかコードの行数を節約できますね。まぁ大手SI会社とかは未だにステップ数が開発規模の指標になっているのでこういうTIPSは嫌われるのかもしれませんが。

@ [perl] mod_perl2ではPerlSetEnvが使えない？

ソースからコンパイルしたmod_perl-2.0.2だとなぜか

PerlSetEnv HOGE fuga

が効いていない。会社のFedoraのRPMから入れたmod_perl2だと使えるのに。なんでだろう。これに頼った設定をしているので、Fedoraではたまたま使えているが今後使えなくなる、ということであればちょっとまずいかも。