search.cgi¸¦ ¿¾îº¸¼¼¿ä. 1. sub main¿¡¼ Äڵ带 Ãß°¡Çϼ¼¿ä. # Set boolean connector and next hits page. my $bool = $in{ bool } &pip;&pip; and ; my $nh = $in{ nh } &pip;&pip; 1; my $search_subcategories = $in{ subcategories } &pip;&pip; 0; if ($in{ where }) { my $status = &catsearch(@search_terms, $bool, $search_subcategories); if ($status ne "ok") { &site_html_search_failure ($status); return; } 2. sub catsearch ¿¡¼ ¾Æ·¡ºÎºÐÀ» my ($search_terms, $bool, $search_subcategories) = @_; ¾Æ·¡ ºÎºÐÀ¸·Î ¹Ù²Ù¼¼¿ä. if ($in{ where } eq $category){ 6 times with: if ( ($search_subcategories && ($category =~ /$in{ where }/. /)) or ($in{ where } eq $category) ){ 2. ¼Ä¡ÆûÀ» ¼öÁ¤Çϼ¼¿ä.