perlにawkのBEGIN,ENDと同様の機能があったのをはじめて知った。
また、rubyにあるのはなんとなく知ってたんだけど、実際に使ったことがなかったので、変数はグローバル変数を使わなければいけない等をはじめて知った。
% ls -l | awk '{n+=$5}END{print n}'
55
% ls -l | perl -alne '$n+=$F[4];END{print $n}'
55
% ls -l | ruby -alne 'BEGIN{$n=0};$n+=$F[4].to_i;END{print $n}'
55