>>921
オレは、キミのプログラムも、相当にキモイと感じるのだが。


($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime;
$mon++;
@dayofweek = qw[(日) (月) (火) (水) (木) (金) (土) (^_^)];
$date_now = sprintf("%02d/%02d%s %02d:%02d", $mon, $mday, $dayofweek[$wday], $hour, $min);