#####################################################################
my $ref;

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

for (sort keys %$ref) {
if ($_ == 0) {
print $$ref{$_};
#####################################################################

#####################################################################
sub zipcode_address {
my %ZIPCODE;
my $text = shift;
return {'0', 'ÀԷ°ªÀÌ ¾ø½À´Ï´Ù.'} if $text eq '';

open GIL, "zipcode.db" or return {'0', 'DB ÆÄÀÏÀÌ ¾ø½À´Ï´Ù.'};
while(<GIL>) {
my ($z, $a) = split /\t/;
chomp $a, $ZIPCODE{$z} = $a if $a =~ /\Q$text/;
}
close GIL;

\%ZIPCODE;
}
#####################################################################

À§ ¼Ò½º¿¡¼­ ÀÌÇØ°¡ ¾Ê°¡´Â ºÎºÐÀÌ À־¿ä.

zipcode_addressÇÔ¼ö¿¡ $queryÀÎÀÚ¸¦ º¸³»¼­ °ªÀÌ 0À̸é

¸®ÅÏÀ» 2°³ ÇÏÀݾƿä. '0', 'ÀԷ°ªÀÌ ¾ø½À´Ï´Ù.'

¹è¿­ÀÌ ¾Æ´Ñº¯¼ö$ref °¡ ¹ÞÀ¸´Ï 0¸¸ ¹ÞÀ»¼ö ÀÖÂ¥³ª¿ä?

±×´ÙÀ½ ÀÌ ¹ØºÎºÐ ºÎÅÍ°¡ Á¤¸» ÀÌÇØ°¡ ¾Ê°¡°Åµç¿ä..¼³¸íµµ Ã¥À»³ë ºÒÃæ

ºÐÇؼ­ ¹¹°¡ ¹ºÁö ¸ô¸£°Ú¾î¿ë..

for (sort keys %$ref) {
if ($_ == 0) {
print $$ref{$_};

±×³É º¯¼ö¸¦ ÇؽÃó·³ Å°°ªÀ» Á¤·ÄÇؼ­ »©³»´ÂÁö?

±×¸®°í print $$ref{$_}; ¿©±â¼­ Ãâ·ÂµÉ¶§. DB ÆÄÀÏÀÌ ¾ø½À´Ï´Ù.

¶ó°í Ãâ·ÂµÇ´ÂÁö? Á¤¸» ÀÌÇØ°¡ ¾Ê°¡°Åµç¿ä.. $ref º¯¼ö°¡ ¹ÞÀº°Ç

0Çϳª »ÓÀÏ°Ç´ë.. ÀÚ¼¼È÷Á» ¼³¸íÁ»ÇØÁÖ¼¼¿ä Á¦¹ß ºÎŹµå·Á¿ë..