Solved

perl calculations

Posted on 2009-07-06
7
203 Views
Last Modified: 2012-05-07
ok,

so I want to calculate the average value per line.

how do I write in code to add up the value of the variables, and divide that value by seven ?
0
Comment
Question by:MichaelGlancy
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
7 Comments
 
LVL 40

Accepted Solution

by:
mrjoltcola earned 500 total points
ID: 24789880
my $avg = ($n1 + $n2 + $n3 + $n4 + $n5 + $n6 + $n7)/ 7;
0
 

Author Closing Comment

by:MichaelGlancy
ID: 31600393
excellent. I didnt know there was an avg operator thing
0
 
LVL 84

Expert Comment

by:ozo
ID: 24789894
while( <> ){
  next unless my @line=split/\D+/;
  my $sum=0;
  $sum+=$_ for @line;
  print "average=",$sum/@line,"\n";
}
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:MichaelGlancy
ID: 24789895
haha just realised there isnt, its another variable

see I know nothing
0
 

Author Comment

by:MichaelGlancy
ID: 24789903
thanks ozo again

but it really does have to be stupid simple for me so I can follow it logically as best I can
0
 
LVL 84

Expert Comment

by:ozo
ID: 24789941
You didn't say that your variables were $n1 + $n2 + $n3 + $n4 + $n5 + $n6 + $n7, so I added code to read variables into @line
0
 
LVL 48

Expert Comment

by:Tintin
ID: 24790124
Here's another way that hopefully is very clear to read.
#!/usr/bin/perl
use List::Util 'sum';
 
open FILE, "file.csv" or die "Can not open file.csv $!\n ;
 
while (<FILE>) {
  my @line=split ',';
  my $avg = sum(@line) / @line;
  print "avg=$avg\n";
}

Open in new window

0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Email validation in proper way is  very important validation required in any web pages. This code is self explainable except that Regular Expression which I used for pattern matching. I originally published as a thread on my website : http://www…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

726 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question