Perl
あまり面倒なことせずに、2012-01-21 (土) 19:22 のように表示させる。 print now(); # 2012-01-21 (土) 19:22 など sub now { my ($minite, $hour, $day, $month, $year, $wday) = (localtime)[1 .. 6]; $wday = qw|日 月 火 水 木 金 土|[$wday]; sprintf …
あまり面倒なことせずに、2012-01-21 (土) 19:22 のように表示させる。 print now(); # 2012-01-21 (土) 19:22 など sub now { my ($minite, $hour, $day, $month, $year, $wday) = (localtime)[1 .. 6]; $wday = qw|日 月 火 水 木 金 土|[$wday]; sprintf …
