Simple Sand Samples |
Perl > 基準日からの連続した日付を得る
dateseq.pl
use Time::Local; @week =("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"); $base = timelocal(0, 0, 0, 30, 1 - 1, 2013 - 1900); for($i=0;$i<10;$i++){ my($mday,$month,$year,$wday) =(localtime( $base + (60*60*24) * $i))[3..6]; printf("%04d-%02d-%02d %s\n" ,$year+1900,$month+1,$mday, $week[$wday]); }
$ perl dateseq.pl
2013-01-30 Wednesday
2013-01-31 Thursday
2013-02-01 Friday
2013-02-02 Saturday
2013-02-03 Sunday
2013-02-04 Monday
2013-02-05 Tuesday
2013-02-06 Wednesday
2013-02-07 Thursday
2013-02-08 Friday
$
2013-01-30 Wednesday
2013-01-31 Thursday
2013-02-01 Friday
2013-02-02 Saturday
2013-02-03 Sunday
2013-02-04 Monday
2013-02-05 Tuesday
2013-02-06 Wednesday
2013-02-07 Thursday
2013-02-08 Friday
$
* 確認環境 Debian Linux(Wheezy)