changma_ha has asked for the wisdom of the Perl Monks concerning the following question:
hi all. I am trying to do a program in which the user give some numbers as input and the output is the sum of the numbers in that input. I am getting the sum right but the problem is when i am giving input after it . it takes the output of the fist input as it input.my code is like:
#! /usr/bin/perl use strict; use warnings; #use Data::Dumper; my $linetotal=0; my $gtotal =0; my $n =0; while (my $line = <STDIN>){ #$line =~ s/^\s+|\s+\n$/ /g; #chomp ($line); my @numbers = split (/ /,$line); $n++; #print Dumper \@numbers; foreach my $number (@numbers){ $linetotal +=$number ; #chomp ($linetotal); } # $line =<STDIN>; print "Total in $n input is : $linetotal \n"; } $gtotal +=$linetotal; print "Grand Total is : $gtotal\n";
Suppose if i give input as
1 2 3
it should give output as
"Total in 1 input is 6"
2 4 5
Total in 2 input is 11
Instead it is giving the 2nd output as 17. plz help me out.Thanks in advance.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Sum of Input
by marto (Cardinal) on Aug 04, 2010 at 09:24 UTC | |
by changma_ha (Sexton) on Aug 04, 2010 at 09:39 UTC | |
Re: Sum of Input
by SuicideJunkie (Vicar) on Aug 04, 2010 at 13:54 UTC | |
Re: Sum of Input
by murugu (Curate) on Aug 04, 2010 at 10:02 UTC | |
by tilly (Archbishop) on Aug 04, 2010 at 18:26 UTC |
Back to
Seekers of Perl Wisdom