[ruby-list:6410] Re: call for scripts

さくです．

In article <[e-mail]>,
    [e-mail] (Yukihiro Matsumoto) writes:
matz>   標準ライブラリにある部分を除いて100〜200行程度以下
matz>   ある程度実用上意味のあるプログラム
matz>   簡単な使い方の説明付き

ラクダ本にあったrenameスクリプトをrubyで書いてみたんですが，20行たらず
のチャチなものでもいいんでしょうか？(参考までにas isで添付しときます)

$ rename 'sub!(/\.htm$/, ".html")' *.htm
$ rename '$_.downcase!' *.TXT

とかして使います．($_が操作対象なのはPerlの名残り)

オリジナリティがあるとは言い難いから止しとくか．
-- 
[Mr.] OZAWA Sakuro
<mailto:[e-mail]>
<http://www.shiojiri.ne.jp/%7Ecrouton/>
#!/usr/local/bin/ruby -s # -*- Ruby -*-

expr = $*.shift

unless expr
  $stderr.print "Usage: #{File.basename($0)} [-n] [-v] rubyexpr [filenames]\n"
  exit(1)
end

#expr = "sub!(/\\.[^.]+$/, '.#{expr}')" if $e

(($*.size) ? $* : readlines.collect { |i| i.chomp }).each do |i|
  $_ = i
  old = i.clone
  begin
    eval expr
    $stderr.print "File.rename('#{old}', '#$_')\n" if $n || $v 
    File.rename(old, $_) unless $n 
  rescue
    $stderr.print "#$!\n"
  end
end