|
#!/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;
}
#---소스끝------# | 
현재위치: 
작성인 : zmaster 
메모
