くだすれPerl（超初心者用）3

[0126 nobodyさん 2009/06/17(水) 20:33:48 ID:???]

そこまで組み込み関数が信用ならねーってんなら

my $now = ($test)? 0 : time();

でいいじゃん。