BCN2053 Operating System Lab Sheet 6 (PERL)

veg.pl

#!/bin/perl

# ==========================================================
# This script requires user to input the weight
# of the lettuce. The output of the script
# will display the total amount of price base
# on the weight (Assume that 1kg is RM2.50).
#
# Sample output will be: 
#
# Enter the weight of lettuce in KG
# [User input]
# Total price is RM[Result]
# Please pay at the counter
#
# Round your answer in 2 dotted decimal.
# ==========================================================

printf("Enter the weight of lettuce in KG\n");
$weight = <STDIN>;

$total = $weight * 2.50;

printf("Total price is RM%.2f\n", $total);
printf("Please pay at the counter\n");