popcorn.pl

来自「小小程序....请大家慢慢看拉...就是一些关于你学习它的一些练习」· PL 代码 · 共 44 行

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;