awk和perl实现sum/avg/max/min

为什么80%的码农都做不了架构师？>>>   

假设data文件中每行是一个数字，我们来使用awk语言和perl语言对这些数字做求和、求平均、求最大、求最小等计算。

【awk版本】

1、求和

cat data|awk '{sum+=$1} END {print "Sum = ", sum}'

2、求平均

cat data|awk '{sum+=$1} END {print "Average = ", sum/NR}'

3、求最大值

cat data|awk 'BEGIN {max = 0} {if ($1>max) max=$1 fi} END {print "Max=", max}'

4、求最小值（min的初始值设置一个超大数即可）

cat data | awk 'BEGIN {min = 1999999} {if ($1<min) min=$1 fi} END {print "Min=", min}'

【perl版本】

1 求和

cat data|perl -lane '{$sum+=$F[0]}END{print "Sum:".$sum}'

2 求平均

cat data|perl -lane '{$sum+=$F[0]}END{print "Average=",$sum/$.}'

3 求最大值

perl -MList::Util=max -lane '{push @a,$F[0]}END{print max @a}' data

4 求最小值

perl -MList::Util=min -lane '{push @a,$F[0]}END{print min @a}' data

转载于:https://my.oschina.net/sukai/blog/326927