2011-05-30

perlでYYYYMMDD形式の日付を得る

こんな感じでおーけーヾ(*・∀・)ノ"
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
my $yyyymmdd = sprintf("%04d%02d%02d", $year + 1900, $mon + 1, $mday);

1 件のコメント:

  1. シンプルで使いやすいサンプルありがとうございます。1行減らせました。

    返信削除