Question

perl 语言请教,谢谢!!!

下面子程序:
#!/usr/bin/perl
@array=<stdin>;
chomp (@array);
sub average(@array){
my($t)=0;
foreach $a(@array){
$t=$t+$a;
}
my($average)=$t/@array;
$average;
}
sub above_average(@array){
$ave=&average(@array);
foreach $b(@array){
if($b>$ave){
print "$b\n";
}
}
}
&above_average;

如果我输入1 2 3,得出结果是3D,3是对的,不过我想问下后面为什么跟着一个D,是不是有换行符没有去掉,还是怎么回事,敬请赐教,谢谢!!

Answer 1

没出现你说的那种情况啊