어제 처음으로 perl을 접하고 쉬운 프로그램을 짜는데 넘 헷깔리고 모르겠네요 머리가 돌이된 느낌

html에서 차종 4개와 옵션 4개를 각각 라디오 버튼으로 받아서 cgi에서 선택한 차종과 옵션의 값을 더하는 건데요

@carname =("아반테","레간자","소나타","카니발");
@optionname =("에어컨","선루프","CD","가죽시트");
이렇게 배열에 넣긴 했는데 if문을 못하겠어요

html에서 받은 차종이름과 옵션이름은 $CarName ,$Option 으로 변수를 줬거든요

제발 부탁드립니다. ㅠ-ㅜ

해피CGI 입니다.

if문을 못하겠다는 말씀이 무슨말씀이신지 이해가 안되는군요.

정확한 질문은 정확한 답변을 얻는답니다. ^^

제 짐작으로 질문이 배열의 값을 select박스로 만드는것에 대한 질문인듯 하여 짧게 코드를 만들어보았습니다.

[프로그램코드]

#! /usr/bin/perl #URL : http://www.happycgi.com print "content-type:text/html\n\n"; @carname =("아반테","레간자","소나타","카니발"); @optionname =("에어컨","선루프","CD","가죽시트"); print "<select name=test1>"; foreach $list (@carname) {  print "<option value=$list>$list</option>"; } print "</select>"; print "<select name=test2>"; foreach $list (@optionname) {  print "<option value=$list>$list</option>"; } print "</select>";

질문의도가 다르다면 다시 질문을 주세요
좋은 하루되세요.

친절한 답글 정말 감사합니다.

제가 다시 설명 드릴게요~  자동차 구매관련 스크립트를 만드는 겁니다.

차종과 옵션이 네가지씩 있고요 html에서 라디오 버튼으로 차종중 하나 , 옵션중 하나를 선택해서 cgi로 넘깁니다.

그럼 cgi에서는 받아서 무슨차를 선택하셨고 무슨 옵션을 선택하셨네요~ 를 출력하고

최종 지불 가격을 계산해야하는 거죠.

차와 옵션이 네가지씩이니깐

@carname =("아반테","레간자","소나타","카니발"); // 이때 가격이 100,110,120,130
@optionname =("에어컨","선루프","CD","가죽시트"); //이때 가격이100,110,120,120

이런식으루 배열에까지는 집어넣었는데 스크립트에 들어온 차종과 옵션을 배열에서 검색해서

계산하려면 조건문이 필요할것도 같은데

가격를 계산할 조건문을 못만들겠어요 ㅠ_ㅜ 완전히 초등학생 수준 조건식만 만들고 그것도 틀리고 있어서요

제발 제발 도와주세요~

자꾸 운영자님이 하실일을 제가 뺏는거 같아서 죄송합니다...(__)

시간관계상 해쉬를 이용하여 대충 후다닥 소스를 만들어보았습니다.

시간이 허용한다면 더욱 간단하게 줄이고 싶은 마음 간절합니다만....

별 이상은 없을 겁니다. 실행해 보시길...

아참 차종은 한개만 선택이고 옵션은 1개 or 2개 or 3개 or 4개 자유롭게 선택가능 합니다.

즉 선택 옵션이 1개든 3개든 선택한 옵션을 모두 보여주고 각각의 가격을 보여준다음

총합계금액까지를 산출합니다.

테스트페이지 => http://etal.ibbun.com/past/aa.cgi?car=레간자&opt1=선루프&opt2=CD

[프로그램코드]

#!/usr/bin/perl %car = (   "아반테", 100,  #차이름과 가격을 같이 적는다.   "레간자", 110,   "소나타", 120,   "카니발", 130,   ); %opt = (   "에어컨", 100,  #옵션이름과 가격을 같이적는다.   "선루프", 110,   "CD", 120,   "가죽시트", 130,   ); &decoder; #cgi라이브러리를읽는다. &pae; #내용을출력한다. #-------설정cgi라이브러리----------# sub decoder {   if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }   else { $buffer = $ENV{'QUERY_STRING'}; }   @pairs = split(/&/,$buffer);   foreach $pair (@pairs) {     ($name,$value) = split(/=/,$pair);     $value =~ tr/+/ /;     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;     $in{$name} = $value;   } } #-------출력부분------# sub pae{ print "Content-Type: text/html\n\n"; #선택한차종을 읽어서 가격과 함께 출력. #차종은1개만선택,선택되어 넘어온 값을 차이름으로 하였을경우임. $total = 0; foreach $eachKey ( keys %car )                                   { if($in{'car'} eq "$eachKey"){   print "$eachKey 를 선택하셨군요.<br>";   $total += $car{$eachKey}; print "차가격은 $total 만원입니다.<p>"; } } # 선택한옵션들을 읽어서 가격과 함께출력. # 4개의 옵션일 경우,선택되어 넘어온 값을 옵션이름으로 하였을경우임. # 4개옵션의폼네임 - opt1, opt2, opt3, opt4  $ototal = 0; foreach $opKey ( keys %opt ) { if($in{'opt1'} eq "$opKey"){   print "선택하신 옵션은 $opKey 이며 가격은 $opt{$opKey} 입니다.<br>";   $ototal += $opt{$opKey}; } if($in{'opt2'} eq "$opKey"){   print "선택하신 옵션은 $opKey 이며 가격은 $opt{$opKey} 입니다.<br>";   $ototal += $opt{$opKey}; } if($in{'opt3'} eq "$opKey"){   print "선택하신 옵션은 $opKey 이며 가격은 $opt{$opKey} 입니다.<br>";   $ototal += $opt{$opKey}; } if($in{'opt4'} eq "$opKey"){   print "선택하신 옵션은 $opKey 이며 가격은 $opt{$opKey} 입니다.<br>";   $ototal += $opt{$opKey}; } } print "총옵션가격은 $ototal만원입니다.<P>\n"; #차가격과 옵션가격을 합하여 총계산가격을 출력. $M_total=($total+$ototal); print "차가격과 옵션합계 가격은 $M_total만원입니다.<P>\n"; exit; } #---소스끝------#