過去3か月の日曜日をperlスクリプトで表示したい
たとえば、今日が 2013 年 1 月 20 日の日曜日で、今から 3 か月前の日曜日であるとします。
2013-01-20
.
.
2013-01-06
.
.
2012-12-30
2012-12-02
.
.
2012-11-25
.
.
2012-11-04
現在の日時に基づいて、過去 3 か月の日曜日を変更する必要があります。
Linux用のkshスクリプトで同じことが必要です
前もって感謝します。
これがコードです..それは先週の日曜日を与えています..しかし私は過去3か月の日曜日が必要です
#!/usr/bin/perl
$today = date(time);
$weekend = date2(time);
sub date {
my($time) = @_;
@when = localtime($time);
$dow=$when[6];
$when[5]+=1900;
$when[4]++;
$date = $when[5] . "-" . $when[4] . "-" . $when[3];
return $date;
}
sub date2 {
my($time) = @_; # incoming parameters
$offset = 0;
$offset = 60*60*24*$dow;
@when = localtime($time - $offset);
$when[5]+=1900;
$when[4]++;
$date = $when[5] . "-" . $when[4] . "-" . $when[3];
return $date;
}
print "$weekend \n";
ありがとう !!