avg.pl

来自「我搜集到的一个java常用类库的源代码」· PL 代码 · 共 12 行

#!/usr/bin/perl -w
use strict;
my(
        $sum
);
$sum=0;
while(<STDIN>){
        $sum+=$_;
}
printf"\t\t%3d\t\t",$sum/240;