안녕하세요. 해피 CGI 웹마스터 윤영웅입니다.
아래 실전 예제입니다. ^^
프로그램 안에서 일단 social_id_check 란 루틴을 넣어둡니다.
아래 서브루틴입니다.
sub social_id_check {
(my $id = shift) =~ /(.)(.)(.)(.)(.)(.)-?(.)(.)(.)(.)(.)(.)(.)/;
$id = ($1*2)+($2*3)+($3*4)+($4*5)+($5*6)+($6*7)+($7*8)+($8*9)+($9*2)+($10*3)+($11*4)+($12*5);
$id %= 10 if ($id = 11- ($id % 11)) > 9; return 1 if $13 == $id;
}
다음 실 프로그램에서 social_id_check 를 불러 체크하는 과정입니다.
unless ( &social_id_check($jumin_all) ) {
print qq~
입력정보 오류 :
정확한 주민번호가 아닙니다
[이전으로 돌아가기]
~;
exit;
}
감사합니다.
좋은 하루되세요. :-)
87
697
2000-09-08 23:46:27
닉네임
