Shell Programming and Scripting

Good morning!!

Im trying to create a script that should get a list of numbers from the user (using STDIN or a list of arguments), and call my library function.

Code:

#!use/bin/perl

require 'my-lib.pl';
@userArray = <STDIN>;

while()
{
chomp;
last if ! /\d/;
push(@userArray,&_);
}
($sum,$avg) = $sumIt(@userArray);

print "Total:$sum\nAverage\n:$avg\n";

Im my library it should contain a function that takes in an array of numbers, then the function will calculate the average of the numbers, the total of the numbers and a new array of numbers which is divided by 2. The new list will contain all this information.

My library:

Code:

sub sumIt {
my @functionArray = @_;
forwach my $line(@functionArray){
$functionSum += $line;
$count++
}
return ($sunctionSum,$functionSum / $count);
}
1:

But it doesnt return anything to help me. No errors, nothing. It appears to hang?

Any help with this will be greatly appreciated!
Bigben

Is this a typo?

Code:

forwach my $line(@functionArray)

Yes it is a typo....sorry its foreach.

That typo is not in my code though. Thanks for catching it fraklin!!