안녕하세요. 저는 이진성이라고 합니다.
다음과 같은 문제로 문의 드립니다.
Perl 로 CGI 를 만들면서 생긴 문제 입니다.
while(($ucnumber,$ucname)=$uc->fetchrow){
push(@ucnames,$ucname);
push(@ucompany,$ucname);
push(@ucompany,$ucnumber);
}
%ucompany=@ucompany;
foreach $temp(keys(%ucompany)){
while(param("company") =~ /$temp/){
$ucompany=$ucompany{$temp};
print $ucompany;
last;
}
}
코드는 위와 같고, 문제가 되는 부분은
foreach $temp(keys(%ucompany)){
