?? popcorn.pl
字號:
use CGI ":standard";
# Initialize total price and total number of purchased items
$total_price = 0;
$total_itemi = 0;
# Produce the header part of the HTML return value
print header;
print start_html("CGI-Perl Popcorn Sales Form, using CGI.pm");
# Set local variables to the parameter values
my($name, $street, $city, $payment) =
(param('name'), param("street"),
param("city"), param("payment"));
my($unpop, $caramel, $caramelnut, $toffeynut) = (param("unpop"),
param("caramel"), param("caramelnut"),
param("toffeynut"));
# Compute the number of items ordered and the total cost
$total_price = 3.0 * $unpop + 3.5 * $caramel + 4.5 * $caramelnut +
5.0 * $toffeynut;
$total_items = $unpop + $caramel + $caramelnut + $toffeynut;
# Produce the result information for the browser and
# finish the page
print h3("Customer:"), "\n";
print "$name<br/>\n", "$street <br/>\n", "$city <br/><br/>\n";
print "<b>Payment method:</b> $payment <br/><br/>\n";
print h3("Items ordered:"), "\n";
if ($unpop > 0) {print "Unpopped popcorn: $unpop <br/>\n";}
if ($caramel > 0) {print "Caramel popcorn: $caramel <br/>\n";}
if ($caramelnut > 0)
{print "Caramel nut popcorn: $caramelnut <br/>\n";}
if ($toffeynut > 0)
{print "Toffey nut popcorn: $toffeynut <br/>\n";}
print "Thank you for your order <br/><br/>\n";
print "<b>Your total bill is:</b> \$ $total_price <br/> \n";
print end_html;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -