script

[help911]

I am new to perl and need help. How do you write a script to add the sum and find out the average and print out the five largest number in the array.

here is my array and here my script can some tell me what am i doing wrong thanks:

#to get the total

@a = ( 10 .. 16 );

$total = 0;

for ( $i = 0; $i < @a; ++$i ) {
total += $a[ $i ];
}
print &quot;$total\n&quot;;

 

[jmdc]

Well looks like your missing $ before the total

total += $a[ $i ];

 

[help911]

I put the $ in front of the total and it still doesn't work is there any I can get the total some.

 

[Grahf]

Shouldn't this:

for ( $i = 0; $i < @a; ++$i ) {

be this?

for ( $i = 0; $i < $#a; ++$i ) {

 

[tsdragon]

Or, alternatively, this:

foreach $i ( 0..$#a ) {

Once you have the total, the average is:

$average = $total / scalar(@a);

To find the 5 largest numbers in @a, you could sort @a in descending order and take the first 5 elements:

@sorted = sort {$b <=> $a} @a;
@top5 = @sorted[0..4];

You could probably combine the sort and the statement following it, but it wouldn't contribute much to the readability of the code. Tracy Dryden
tracy@bydisn.com

http://www.bydisn.com

Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.