perlワンライナーをできるだけ短くしたい

Question

freeコマンドの結果を元に、以下の内容を出力するperlワンライナーがあります。
このワンライナーを1文字でも多く少なくしたいです。
邪悪なコードになっても構わないので、ご回答いただくと幸いです。
なお、perlはv5.8.8です。

$ free|perl -a0ne'foreach(@F[7,15,16]){$_=($_>1024)?sprintf"%.1fG ",$_/=1024:"${_}M ";print}print"\n"'
3.4G 2.8G 652M

Answer 1

arguisさんのを元にさらに削ります。

• printが最後に1回だけになったので、-pオプションを使えばprintの代わりに$_=で済む(2文字削れる)
• "M"はお行儀が悪いですがbarewordにしてしまえばMだけでいい(2文字削れる)

free|perl -a0pe'@a=map{$_>1024?sprintf"%.1fG",$_/1024:$_.M}@F[7,15,16];$_="@a\n"'

Comments

[argius]

これはすごい!

-pオプションでできると思ってやってみたものの上手くいかなかったのですが、そうすれば良かったんですね。

strictでなくて良いのだから、barewordで行けば、というのは思いつきませんでした。
というか、barewordを文字列に使えることを知りませんでした。

勉強になりました。ありがとうございます。

[xu__huang]

自分なりに結構短くしたつもりでしたが、まだまだ削れたんですね。
とても参考になりました。ありがとうございました！

Answer 2

100文字⇒85文字になりました。

free|perl -a0ne'@a=map{$_>1024?sprintf"%.1fG",$_/1024:$_."M"}@F[7,15,16];print"@a\n"'

ポイントは、以下の通り。

• foreachでなく、mapで配列を変換して変数に入れておく（後述のprintで使用）
• .演算子でつなげて{}を省く
• $_/=1024のイコールは不要
• printを1回にする print "@a"にすれば区切りのスペースも省ける

Comments

[xu__huang]

迅速にご回答いただき、誠にありがとうございました。crhgさんの回答のベー
スにもなっていることから、心情的にはベストアンサーにしたいのですが、今
回はcrhgさんをベストアンサーとさせていただきました。何卒ご容赦ください。

[argius]

crhgさんは私のをベースにしなくてもきっとこの結果に辿り着いていたと思いますし、
ご質問の性質上、最短なのがベストアンサーになるのが筋でしょう。
なので、お気になさらず。

pオプションは自力で辿り着きたかったところですが、だいぶPerlを忘れているみたいで、ギブアップしてしまいました。残念。