#! /usr/bin/perl # # # use strict; # --- Good job on using strict and warnings !! use warnings; #------------------data------------------------- my @Rainfall ; my $Index ; # --- Perl programmers try to avoid using Indexes wh +ere not necessary. # --- IN This case, Index is NOT necessary my ($Total, $Average) = 0, 0; # Wrong intent (result would be OK) - er +ror pointed out by others #------------------program---------------------- print " Enter 12 numbers for the rainfall for each month \n"; for ( $Index = 0; $Index < 12 ; $Index++ ) # --- Perl programmers wou +ld not use "C" style loop { print "Enter a month's rainfall: " ; chomp($Rainfall[$Index]= <STDIN>); # --- } # --- Perl programmer would have done this like: # --- while (<STDIN>){ # --- chomp; # --- push @Rainfall, $_; # --- } # # now we have all the input, we can do things with it: # foreach (@Rainfall) { $Total = $_; # --- Perl programmer would have done: # --- foreach (@Rainfall) { # --- $Total += $_; # --- } # --- print "Total=$Total; Average = " , $Total/scalar(@Rainfall) , + "\n"; # Should have formatting for Avg...
"Choose a job you like and you will never have to work a day of your life" - Confucius
In reply to Re: Adding Arrays..
by NetWallah
in thread Adding Arrays..
by mauvis99
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |