スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

前日・翌日の取得[Perl]

実行日の1週間前の日時を取得したいと思ったが、さて、どうしたらいいものか悩む・・・

ググッてみるといいものが^^

実行日の前日・翌日を取得するのであればtimeとlocaltimeを使えば簡単です。

sub show_date {
my $tm = shift;
my ($day, $month, $year) = (localtime($tm))[3..5];
printf "%04d/%02d/%02d\n", $year + 1900, $month + 1, $day;
}

# 前日を表示
show_date(time - 24 * 3600);
# 翌日を表示
show_date(time + 24 * 3600);

つまり、1週間前の日時を取得するには、
show_date(time - 24 * 3600 * 7);
でいいのかな??

MASのページ

TAG :
perl
web
ホームページ作成

トラックバック


この記事にトラックバックする(FC2ブログユーザー)

コメントの投稿

Private :

話題のアレ

カテゴリー
ブログ内検索
最新の記事
最近のコメント
最近のトラックバック
お得なアレ

関連品アレコレ

ブロとも申請フォーム

この人とブロともになる

リンク
ひっそりと相互リンク募集中

ちなみに、当サイトのGooglePRは、
ブログパーツ
どうぞよろしくお願いします。
⇒⇒詳細はこちら

過去ログ
RSSフィード
プロフィール

モトカク

Author:モトカク
現在、岩手在住の30半ばの男。
生まれ育ちは福岡。
妻の実家で妻、義母と同居。
つまり、ムコ。

このページのトップへ
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。