sub GetFullLinkList { ### 다음 라인들을 추가 my ($opt) = @_; my $opt_item; my %args = ( # default 값 "unique" , 1, "sort", 1, "page", 1, "inter", 0, "url", 0, "exists", 2, "empty", 0, "search", "", "reverse", "" ); foreach $opt_item (split('&',$opt)) { if ($opt_item =~ /^(.+)=(.+)$/) { $args{$1} = $2; } } ### ... my ($pagelink, $interlink, $urllink); my (@found, @links, @newlinks, @pglist, %pgExists, %seen); ### 다음 라인들을 교체 # $unique = &GetParam("unique", 1); # $sort = &GetParam("sort", 1); # $pagelink = &GetParam("page", 1); # $interlink = &GetParam("inter", 0); # $urllink = &GetParam("url", 0); # $exists = &GetParam("exists", 2); # $empty = &GetParam("empty", 0); # $search = &GetParam("search", ""); $unique = &GetParam("unique", $args{"unique"}); $sort = &GetParam("sort", $args{"sort"}); $pagelink = &GetParam("page", $args{"page"}); $interlink = &GetParam("inter", $args{"inter"}); $urllink = &GetParam("url", $args{"url"}); $exists = &GetParam("exists", $args{"exists"}); $empty = &GetParam("empty", $args{"empty"}); $search = &GetParam("search", $args{"search"}); ###