Event 6 茶歇

时间：2008-03-11 来源：starB6

#!/usr/bin/perl -w
use strict;
open COFFEE,"<coffee.txt";
#Office 100
#Espresso: 15
#Latte: 10
#Cappuccino: 14
my $Espresso;
my $Latte;
my $Cappuccino;
foreach(<COFFEE>)
{
# print "********$_\n";
   my @lists=split(/ /, $_);
# print "the secoen: $lists[1]\n";

my $first=$lists[0];

my $second=$lists[1];
chomp($first);
chomp($second);
   if($first eq 'Espresso')
   {
   # print "Espresso\n";
   $Espresso+=$second;
}
elsif($first eq 'Latte')
   {
   # print "Latte\n";
   $Latte+=$second;
}
elsif($first eq 'Cappuccino')
   {
   #print "Cappuccino\n";
   $Cappuccino+=$second;
}
}
print "****************************\n";
print "Espresso: $Espresso\n";
print "Latte: $Latte\n";
print "Cappuccino: $Cappuccino\n";

相关阅读更多 +