perl入门练习（4）

小骆驼图书第四章练习；

忽略图中的草稿哈；

#! /usr/bin/perl -w 

@test_array = qw /3 4 5/;
print "the sum of the  test_array is " ,&total(@test_array),"\n";

sub total{	
	my $sum;
	foreach(@_){
		print $_;
		$sum += $_;
	}
}

#! /usr/bin/perl -w 

print "the sum of the  test_array is " ,&total(1..1000),"\n";

sub total{	
	my $sum;
	foreach(@_){
		print $_;
		$sum += $_;
	}
}

sub total{	
	my $sum;
	foreach(@_){
		print $_;
		$sum += $_;		#$sum = $sum+$_; $_即每个foreach时的变量
	}
}

sub average{
	my $average;
	my $sum;
	$sum = &total(@_);
	$average = $sum / @_;
}

sub above_average{
	my $average = &average(@_);
	foreach(@_){
		if($_ > $average){
			push @list , $_;			#将满足条件的元素放到list数组里
		}
	}
	foreach(@list){
		print "the array has $_ above the average\n";
		}
}