1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!perl -w
use strict;
no strict "vars";
use Date::Pcalc qw( Week_of_Year Monday_of_Week );
# ======================================================================
# ($week,$year) = Week_of_Year($year,$mm,$dd);
# ($year,$mm,$dd) = Monday_of_Week($week,$year);
# ======================================================================
print "1..1\n";
$n = 1;
($year,$mm,$dd) = Monday_of_Week(Week_of_Year(1996,6,26));
if (($year==1996)&&($mm==6)&&($dd==24)) {print "ok $n\n";} else {print "not ok $n\n";}
$n++;
__END__
|
