작성일 : 2000.5.4
작성자 : 심재환(master@csr.co.kr)
홈페이지 :
http://www.csr.co.kr제가 만들어 사용하고 있는 요일찾기 Perl 루틴입니다.
Perl 내장함수 localtime()으로 현재의 년/월/일/요일등은 구할 수 있지만, 사용자가 원하는 임의의 날짜에 대한 요일을 구하는 함수가 없어 만들어 보았습니다.
즉, time(), localtime()함수를 전혀 사용하지 않고 요일을 찾습니다.
데모를 보여주지는 못하지만, 현재 제가 잘 활용하고 있으며, 정확히 원하는 날짜의 요일을 반환하여 줍니다.
CGI,Perl 사용법에 대해서는 이미 알고 계시는 분에게 드립니다.
많은 활용이 있으시길 바랍니다.
**참고 : 전달하는 "일/월/년"의 값이 정확한지는 체크하지 않습니다. 이미 메인루틴내에서 정확한 날짜값을 파라메터로 전달한다는 전제 입니다.
예를들면, "2000년2월31일"의 날짜를 전달하게 되면 "2000년3월2일"의 요일값을 반환합니다.
또는, "2000년4월31일"의 날짜를 전달하면, "2000년5월1일"의 요일값을 반환합니다.
# 요일찾기 사용법 ###################################
# 서브루틴에 전달할 파라메터는 ("일",월","년도")
# 일/월/년도의 값은 임의의 변수명으로 전달하여도 됨
#####################################################
# 변수 선언
$curDay = "31" # 요일을 찾고자 하는 일 =>1~31
$curMonth = "12" # 월 =>1~12
$curYear = "2000" # 년도 =>1900년도 이후
#####################################################
# 함수 사용법
$curWeek = &WeekSearch("$curDay","$curMonth","$curYear")
# 변수 $curWeek에는 요일값(예;"토")이 저장되므로 원하는곳에서 사용하면 됩니다.
# ---------------------------------------------------
# 임의의 날짜에 대한 요일을 구하는 서브루틴
# ---------------------------------------------------
sub WeekSearch{
local($nDay,$nMonth,$nYear) = @_;
@weekdays = (
토
,
일
,
월
,
화
,
수
,
목
,
금
);
$val1 = $nDay;
$val2 = $nMonth;
$val2x = $nMonth;
$val3 = $nYear;
$val2x=13 if($val2 == 1);
$val2x=14 if($val2 == 2);
$val3=$val3-1 if(($val2 == 1) &pip;&pip; ($val2 == 2));
$val4 = int((($val2x 1)*3)/5);
$val5 = int($val3/4);
$val6 = int($val3/100);
$val7 = int($val3/400);
$val8 = $val1 ($val2x*2) $val4 $val3 $val5-$val6 $val7 2;
$val9 = int($val8/7);
$val0 = $val8-($val9*7);
$retval = $weekdays[$val0];
$retval;
}
# ------------------------------------------ End ----
31
965
2000-05-03 16:25:44
닉네임
