新規作成 | 管理 | 差分 | 検索 | FrontPage | ページ一覧 | 更新履歴 | RSS

PlugIn/date-stamp - 年月日を表す数字8桁

管理

年月日を表す数字8桁

$plugin->def("date-stamp",
  "年月日を表す数字8桁",
  sub {
    my $arg = shift;
    my $time;
    if ($arg) {
      $time = $arg * 60 * 60 * 24;
    }
    else {
      $time = time;
    }
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime($time);
    $year += 1900 if $year < 1900;
    $mon += 1;
    return sprintf("%04d%02d%02d", $year,$mon,$mday);
  }
);