11.07.2008, 05:57
|
|
Познающий
Регистрация: 08.04.2008
Сообщений: 60
Провел на форуме:
111221
Репутация:
2
|
|
Вот такой скрипт есть в учебнике, по которому решил заниматься.
#! /usr/bin/perl -w
@marks = (56, 23, 87, 79);
@diffs = diffsFromAvg(@marks);
$theAvg = diffsFromAvg(@marks);
print "List context: @diffs";
print "\nScalar Context: $theAvg";
sub diffsFromAvg
{
$numOfEls = @_;
$total = 0;
$total += $_ foreach (@_);
$avg = $total / $numOfEls
if (wantarray)
{
return map $avg - $_, @_;
}
else
{
$avg;
}
}
Находит ошибку на 17 и 20 линии. В чем проблема - не могу понять. |
|
|