I just renamed it to obj13-1.pl from script.pl
So it looks now like this:
#!/usr/bin/perl
use strict;
use warnings;
require 'obj13-lib.pl';
my @userArray = <STDIN>;
my $sum = sumIt(@userArray);
print $sum;
and the library I renamed to: obj13-lib.pl and now looks like this:
sub sumIt{
my $total;
$total += $_ for @_;
warn "@_ was empty, total undefined!\n" if !defined $total;
}
sub avg(@)
{
my @arr = @_;
my $arrSize = scalar(@arr);
(last index). Double check
return sumIt(@arr) / @arr;
}
1;
When I do the following:
:~$ perl obj13-1.pl
I get:
Not enough arguments for index at obj13-lib.pl line 11, near "index)"
Compilation failed in require at obj13-1.pl line 6.
What is this index error?
Mr. Shawn H. Corey wrote:
> Amichai Teumim wrote:
>> No it was commented out. Now it's changed. I still don't know how to use
>> it. What would a good way to test it be?
>>
>> echo 1234 | ./script.pl obviously won't do much. I wad told
>> ./obj13-1.pl <<EOD
>>
>
> What the heck is obj13-1.pl?
>
> To test your script you need a list of numbers one per line. The
> easiest way is:
>
> $ perl script.pl
> 123
> 456
> 789
> ^D
>
> The '^D' is generated by holding the Control (sometimes labeled Ctrl)
> key and pressing the d key at the same time.
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
