カレントディレクトリ配下で実行属性の付いていない実行属性ファイルを見つけて実行属性を付ける(2)
rubyでやるとこんな感じかな。
find . -name *.cgi -ls | ruby -an -e 'puts $F[10] if $_ =~ /- /' | xargs chmod +x
多分全部rubyでできるけど。
ちなみにperlだと以下のような感じ。
find . -name *.cgi -ls | perl -an -e 'print @F[10],"\n" if $_ =~ /- /' | xargs chmod +x
ほとんど同じ。rubyがperlから強い影響を受けているってことなんだろうね。
perlの場合、print行末の改行を明示的に入れないといけないけど、rubyに慣れてしまうとこれが結構面倒くさい。perlにもputsがあればいいのに。(もしかしたらあるのかも?)
昨日作ったコマンドを並べたやつ(http://d.hatena.ne.jp/koki-h/20061125/1164485819)と、タイプ量ではあまり変わらないのはなんか微妙な感じ。