#!/usr/bin/perl 
# First Name: ---- 
# Last Name: ---- 
# ID: ---- 
# Assignment #4 
# 
#Description: 
# Takes an order for a restaurant, using printf, arrays, and a subroutine.  
 
use strict; 
my @menu; 		# menu array 
my @foodcost; 	# price of the food in the menu array 
 
my @quantity;	# required array for assignment 4. The point of this  
#array is to hold the number of an item ordered (i.e. $quantity[0] represents  
#the number of hamburgers ordered, $quantity[1] represents the number of  
#frankfurters ordered, etc.) 
 
my $v; 				# control variable 
my $tally;			# a variable to tally up the current bill 
my $selection;	# a variable for what the user selected on the menu 
 
$tally=0;				# initializing variables...  
$selection=0; 
@quantity=0; 
print "quantity = @quantity\n"; 
# give values to the menu...  
@menu=("", "Hamburger", "Frankfurter", "French Fries", "Large Coke", "Medium Coke", "Small Coke", "Onion Rings", "Tally Bill and Start over", "Stop"); 
# ... and coinciding prices.  
@foodcost=(undef, 3.49, 2.19, 1.69, 1.79, 1.59, 1.39, 1.19);  
 
 
sub menuprint	# creating a subroutine for printing out the menu...  
{ 
	# Print out menu 
	print "EMU Gourmet Food\n\n"; 
	for ($v=1; $v<=$#menu; $v++) 
	{ 
		printf "$v) $menu[$v] $foodcost[$v]\n"; 
		if ($selection==$v)		# if the selection = the menu item, tally it.  
		{ 
			$tally+=$foodcost[$v]; 
		} 
	} 
} 
 
&menuprint; 
 
# now, for user input:  
do 
{ 
	print "\nEnter selection : ";  
	$selection=<STDIN>;  
 
	if($selection<8) 
	{ 
		print "\nEnter quantity : ";  
		$quantity[$selection]=<STDIN>;  
	 
		&menuprint; 
	} 
	elsif($selection=>8) 
	{ 
		&menuprint; 
		#print "Your total bill is : \$$tally\n"; 
		print "Qty\t Desc.\t Unit \$\t Total\n"; 
		for ($v=1; $v<=$#menu; $v++) 
		{ 
			if ($quantity[$v]>0) 
			{ 
				printf "quantity $quantity[$v]\nmenu $menu[$v]\t%-7.2f foodcost $foodcost[$v]\tfoodcost times quantity $foodcost[$v]*$quantity[$v]\n-------------------------------------------------\nTotal\t\t\t"; 
				 
				for($v=0;$v<$#quantity;$v++)	# gotta add up the total  
				{ 
					$tally+=($quantity[$v]*$foodcost[$v]); 
					print "tally $tally plus equals quantity $quantity[$v] times foodcost $foodcost[$v]\n"; 
				} 
				 
				printf "\$$tally\n"; 
				 
				@quantity=0; 
				$v=0; 
			} 
		} 
		$tally=0; 
	} 
} while($selection<9); 
 
print "\nEnjoy your meal";

use warnings  FATAL => qw(all);

menuprint();

@quantity=0;

$selection=>8

Qty       Desc.       Unit $    Total 
2         Hamburger   3.49      6.98 
1         Large Coke  1.79      1.79 
------------------------------------------------- 
Total                           8.77

#!/usr/bin/perl 
#Description: 
# Takes an order for a restaurant, using printf, arrays, and a subroutine.  
 
use strict; 
my @menu=("", "Hamburger", "Frankfurter", "French Fries", "Large Coke", "Medium Coke", "Small Coke", "Onion Rings", "Tally Bill and Start over", "Stop"); # menu array 
my @foodcost=(undef, 3.49, 2.19, 1.69, 1.79, 1.59, 1.39, 1.19); # price of the food in the menu array 
my @quantity=(0, 0, 0, 0, 0, 0, 0, 0);  # array for amount of food selected 
my @quantTally=(0, 0, 0, 0, 0, 0, 0, 0); # array to tally up each quantity of food 
 
my $v; 				# control variable 
my $tally;			# a variable to tally up the current bill 
my $selection;		# a variable for what the user selected on the menu 
 
# initializing variables...  
$tally=0; 
$selection=0; 
 
# SUBROUTINE -- SUBROUTINE -- SUBROUTINE -- SUBROUTINE 
sub menuprint	# creating a subroutine for printing out the menu...  
{ 
	# Print out menu 
	print "EMU Gourmet Food\n\n"; 
	for ($v=1; $v<=$#menu; $v++) 
	{ 
		printf "$v) $menu[$v] $foodcost[$v]\n"; 
		if ($selection==$v) # if the current value of $v matches the user input 
		{ 
			if ($v<8){$quantity[$v]++;} # add up the amount of a given menu item (since 8 and above aren't menu items but rather menu options, they don't get tallied up) 
		} 
	} 
	print "\nEnter selection : "; 
	$selection=<STDIN>;  
} 
# SUBROUTINE -- SUBROUTINE -- SUBROUTINE -- SUBROUTINE 
 
do # DO STUFF BASED ON USER INPUT 
{ 
	if($selection<8) 
	{ 
		&menuprint; 
	} 
	elsif($selection=8) 
	{	# here's where the printf fun begins...  
		printf ("\n%-10s%-12s%-10s%-10s\n", "Qty", "Desc.", "Unit \$", "Total"); 
		for ($v=1; $v<=$#menu; $v++) 
		{	# adding up the totals for each type of food, then the grand total of everything.  
			$quantTally[$v]+=($foodcost[$v]*$quantity[$v]); 
			$tally+=($foodcost[$v]*$quantity[$v]); 
			if ($quantity[$v]>0) # so only items selected will be printed  
			{ 
				printf ("%-10s%-12s%-10s%-10s\n", $quantity[$v], $menu[$v], $foodcost[$v], $quantTally[$v]); 
			} 
		} 
		print "-------------------------------------------------\n"; 
		printf ("%-32s%-10s\n\n", "Total", $tally); 
		$tally=0; # and let's zero everything out.  
		@quantity=(0, 0, 0, 0, 0, 0, 0, 0);  
		@quantTally=(0, 0, 0, 0, 0, 0, 0, 0);  
		&menuprint; 
	} 
} while($selection!=9); 
 
print "\nEnjoy your meal";

elsif($selection=8)