DouKaku?beta

Comment detail

指定された日の存在する週 (Nested Flatten) 
Date::Simpleを使ってみた。何か不思議な感じ。
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/local/bin/perl

use strict;
use Date::Simple;

sub getWeekDay{
  my $year = shift;
  my $month = shift;
  my $day = shift;
  
  my $date = Date::Simple->new($year, $month, $day);
  my $day_of_week = $date->day_of_week;

  for(my $i = 1; $i<=5; $i++){
    my $week_day = $date - $day_of_week + $i;
    print $week_day->format("%Y/%m/%d(%a)\n");
  }
}

getWeekDay(2009, 12, 31);

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]