[perl] [getclip][tips ]クリップボードを直接計算

getclipとperlを組み合わせてクリップボード⇒計算⇒クリップボードみたいなワンライナ的なものを
書いてみた。なんかをコピペしてbluewindからこのワンライナを呼び結果をクリップボードに戻す。

#!/usr/bin/bash
getclip -u|perl -e 'while(<>){if($. == 1){print eval $_}else{printf "\n%s",eval $_} }'|putclip -d

たとえば計算するときは

1 + 1 
1 + 2 
1 + 3 
1 + 4 

を丸ごとコピペしてbluewindからkeisanと打つ(無変換＋スペース⇒コマンド補完されるのでkeと打つだけ)

2
3
4
5

あとevalなのでperlの文字列操作的な演算子もエディタからコピペして使えたりする。

"umino," x 10
⇒umino,umino,umino,umino,umino,umino,umino,umino,umino,umino,

なんか、エディタがパワーアップしたみたいな気分だぜ！
しょうもないね。ははは・・。