묻고답하기

안녕하세요...반갑습니다.
이번에 정통부에서 발표한 우편번호를 가지고 우편번호db를 만들어는데...
찾기를 하면 않나오는 주소가 있습니다.
그래서 왜그런지 찾다보니 우편번호가 같은게 있으면 하나의 주소만 나오는것입니다.
예을 들어 "온천3동"를 검색하면 우편번호db에는 21개가 있는데 검색은 10개만됩니다.
그래서 원인을 찾아보니 우편번호가 동일하면 검색에서 하나만 나오고 나머지 주소는
나오지 않는것입니다.
동일한 우편번호가 있으면 주소중 하나만 출력하는것입니다.
간단하게 수정 할수없나요?

http://www.oktnt.com/Fmail/aaa/zip/zipcode.cgi

그럼 부탁좀 드림니다....
감사합니다.



#!/usr/bin/perl

##############################################################
# 우편번호 검색
# geonex@hanmail.net
##############################################################


&init;

if($GIL{'mode'} eq '') { &print_top; }
elsif($GIL{'mode'} eq 'top') { &show_top; }
elsif($GIL{'mode'} eq 'down') { &show_down; }
elsif($GIL{'mode'} eq 'search') { &search; }



##########################################################################
sub search {

        my $query = $GIL{'query'};

print "Content-type: text/htmlnn";
print<<END;
<html>
<head>
<SCRIPT language="JavaScript">
function Copy(zip1,zip2,address) {
        // copy
        top.opener.document.$GIL{form}.$GIL{zip1}.value = zip1;
        top.opener.document.$GIL{form}.$GIL{zip2}.value = zip2;
        top.opener.document.$GIL{form}.$GIL{address}.value = address;

        // focus
        top.opener.document.$GIL{form}.$GIL{address}.focus();

        // close this window
        parent.window.close();

}
</SCRIPT>
<TITLE>티사티 우편번호 검색</TITLE>
</head>
<style type="text/css">
<!--
body {font-family:굴림체; font-size:12px; text-decoration:none }
td { font-family:굴림체; font-size:12px; text-decoration:none}
        a:link { font-family:굴림체; font-size:12px; text-decoration:none; color:black}
a:visited { font-family:굴림체; font-size:12px; text-decoration:none; color:black}
a:hover { text-decoration: underline; color=#ff0000}
-->
</style>
<body bgcolor=white text=#000000>
<font size=2>
<center>
<table cellspacing=0 cellpadding=6 width=100%>
<tr align=center BGCOLOR=#4c81c><td><font size=-1><b>우편번호</b></font></td><td><font size=-1><b>주 소</b></font></td><td><font size=-1><b>확인</b></font></td></tr>

END

        require 'zipcode.pm';

        if($GIL{searchmode} eq 'address') {
                $ref = &zipcode_address($query);
        } elsif($GIL{searchmode} eq 'code') {
                $ref = &zipcode_code($query);
        }

        for(sort keys %$ref) {
                my ($zip1, $zip2) = $_ =~ /(...)(...)/;
                print qq|<tr BGCOLOR="#C3E5FF"><form><td><font color=black><input type='text' name='zip1' value='$zip1' size=3><b>-</b><input type='text' name='zip2' value='$zip2' size=3></font></td>
                                <td><input type='text' name='address'
value='$$ref{$_}' size=40 maxlength=50><br></font></td><td><input
type="button" value="적용" onClick="Copy('$zip1','$zip2','$$ref{$_}')"></td></form></tr>|;
        }

print <<END;

</table>
</font>

<hr size=1><center>
<font size=2 color=red><b>검색이 완료되었습니다.</b></font></center>
<hr size=1>
<FORM action=zipcode.cgi method=post name=gil>
<input type=hidden name=mode value=search>

<input type=hidden name=form value=$GIL{form}>
<input type=hidden name=zip1 value=$GIL{zip1}>
<input type=hidden name=zip2 value=$GIL{zip2}>
<input type=hidden name=address value=$GIL{address}>

<font size=2 color=#404040>
검색어: <input type=text name=query size=15>
<select name=searchmode size=1 onChange=document.gil.query.focus()>
<option value=address>주소로 찾기
<option value=code>우편번호로 찾기
</select>
<input type=submit value="검색">
</FORM>
</body>
</html>

END

}


##########################################################################
sub print_top {
print "Content-type: text/htmlnn";
print<<END;
<html>
<head>
<SCRIPT language="JavaScript">
</SCRIPT>
<TITLE>티사티 우편번호검색</TITLE>
</head>
<body bgcolor=white text=#000000 onLoad=document.gil.query.focus()>
<center>
<TABLE Width=400 CelLSpacing=0 CellPadding=6 Border=1 BorderColor=Black>
<TR>
   <TD BGCOLOR="gold" align="center">  <Font Size=2 Color=black>
<b>우편번호/주소 검색</b>
   </TD>
</TR>

<TR>
   <TD> <Font Size=2>

   <BR><CENTER>
<FONT SIZE=2 FACE="굴림체,arial">     찾고자 하는 주소의 동/읍/면 이름을 입력하세요.<br>     (예:압구정동/단양읍/수산면)</FONT>
<hr size=1>
<FORM action=zipcode.cgi method=post name=gil>
<input type=hidden name=mode value=search>

<input type=hidden name=form value=$GIL{form}>
<input type=hidden name=zip1 value=$GIL{zip1}>
<input type=hidden name=zip2 value=$GIL{zip2}>
<input type=hidden name=address value=$GIL{address}>

<font size=2 color=#404040>
검색어: <input type=text name=query size=15>
<select name=searchmode size=1 onChange=document.gil.query.focus()>
<option value=address>주소로 찾기
<option value=code>우편번호로 찾기
</select>
<input type=submit value="검색">
</FORM>
      </TD>
   </TR>
   </TABLE>
</center>
</body>
</html>

END

}





##########################################################################
sub init {
        if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
        else { $buffer = $ENV{'QUERY_STRING'}; }

        for (split '&', $buffer) {
                my ($name, $value) = split '=';
                $name =~ tr/+/ /;  $name =~ s/%(..)/chr(hex($1))/ge;
                $value =~ tr/+/ /;  $value =~ s/%(..)/chr(hex($1))/ge;
                $GIL{$name} = $value;
        }

}


__END__
글쓴이 제목 최종 글
XE 공지 글 쓰기,삭제 운영방식 변경 공지 [16] 2019.03.05 by 남기남
Cide 쓰인 폰트에 대해서 질문 [1] 2007.08.10
쭈뿌..쭈뿌.. 표안에 하나의 그림만 배경으로 까는방법 [2] 2007.08.10
박기운 보드 링크시 문제입니다.. [1] 2007.08.10
임수경 버튼에 마우스를 갖다 대고.. [1] 2007.08.10
아드레날린 포토샵에서 사진을 그림처럼- [2] 2007.08.10
토끼자와 제가 지금 노프레임홈을 만들고 있는데요... [1] 2007.08.10
REDsky 이미지가 랜덤하게 바뀌는거 질문인데요, [1] 2007.08.10
강예나 UTF-8에대한질문 [1] 2007.08.10
taeho [플래시&포토샵] 이런건 어떻게 합니까?  
ANI MEDIA 링크된 텍스트에 마우스 오버시 텍스트 변화 관련 문의  
조성천 포토샵에서 레이어로 만든 파일 저장이요.. [1] 2007.08.10
오진호 랜덤 이미지 소스 해석 좀 해주세요. [1] 2007.08.10
n/a 드롭다운 메뉴?????? [1] 2007.08.10
김민성 어디서봤는데.. 하루만 창 열기. [1] 2007.08.10
최홍수 onclick명령어에 대한 질문입니다. [4] 2007.08.10
차건환 MySql Error ! < too many open file > [3] 2007.08.10
지나가던햏인 플래쉬] 플래쉬에서 또렷한 글자를 만들려면.. [2] 2007.08.10
지나가던햏인 플래쉬] 이미지 퀄리티를 높게 하려면.. [1] 2007.08.10
미카엘 제로보드를 재설치 후... [1] 2007.08.10
이우진 제로카운터!꼭좀 봐주세요!!@  
멘도자 광고 팝업창 없앨수 있나요? [3] 2007.08.10
장현웅 이거요 글자 링크인데요...답변좀... [1] 2007.08.10
전재환 제로보드와 간단한 웹 게임 연동에 대해 질문할게요.  
김윤희 div 태그.. 어떻게 하면 될까요?  
ufo220 서버와 메일서버 채팅서버 컴하나로 가능한가요? [2] 2007.08.10
윤병권 소스안에 있는 ''<Zeroboard'' 의 의미는? [1] 2007.08.10
앤드류 우편번호 찾기 cgi수정좀 할수없나요?  
김상혁 SWF라는 화일을 만들거나 사용할때.. [3] 2007.08.10
김민성 스소보기 막는 소스 없나요?? [2] 2007.08.10
로제스원 레이어 스크롤바...