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.

My script:

[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";[code1]

In 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 = @_;
foreach my $line(@functionArray){
$functionSum += $line;
$count++
}
return ($functionSum,$functionSum / $count);
}
1:[code1]

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

Any help with this will be greatly appreciated!
Bigben

you should not call your function as $function, call it as simply function.

And enable warnings, and strict as, for debugging.,

Code:

use strict;
use warning;

for better debugging, use

Code:

use diagnostics;