月: 2008年8月

僕は基本的に、ファッションに関して、流行に対する興味などはほとんど無い。
そんな感じなので、最近のお洒落や流行の服装といったものはほとんど知らない。

しかし、そんな僕が興味を持っているのは（服装に関わらず全てに対して言えることだが）、昔からの伝統的かつ普遍的なファッションであり、長期間の着用に耐えうる頑丈さを持っていて、これからも永遠に無くなることがないであろうファッションには、非常に興味がある。

人生の相棒となり得るファッション。

そして、今日、僕のその興味にぴったりあてはまるシャツをついに購入したのだ。

それが、ブルックス・ブラザーズのポロカラーシャツ（Traditional Fit）である。

続きを読む

こんなのでできてしまう。

ircdのソースを参考にコーディング。

# cat c/os_chk.c
#include<stdio.h>

int main()
{

    #if(defined(__NetBSD__))
    {
        printf("NetBSD\n");
    }
    #elif(defined(linux))
    {
        printf("linux\n");
    }
    #elif(defined(__FreeBSD__))
    {
        printf("FreeBSD\n");
    }
    #else
        printf("error\n");
    #endif
    return 0;
}

どうも、この書き方が苦手だ。

$file = `cat hoge.txt`;

かなり多様されてはいるものの、やはりできるだけ使用言語によるコーディングを心がけたい。

しかし、確かに、open→while→closeと段階を踏んで記述するのも、面倒と言う気持ちも分かる。

というわけで、サブルーチンにファイルオープン処理を記述してやると、多少便利だと思った。

sub get_text_file
{
    open my $FILE_HANDLE , $_[0] || die("File Opne Error.");
    local $/;
    <$FILE_HANDLE>
}

これでだいぶ手間が省ける。

↓コーディング例

# cat test.pl
#!/usr/bin/perl

my $file = &get_text_file($ARGV[0]);
print $file;

sub get_text_file
{
    open my $HANDLE , $_[0] || die("File Opne Error.");
    local $/;
    <$HANDLE>
}

# cat hoge.txt

frpijfweroi

fdrfefwfewef

fuok
# ./test.pl hoge.txt

frpijfweroi

fdrfefwfewef

fuok