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

< ^ > P N |<>|^_>< --- | ~ ...Help
----Next_Part(Fri_Feb_13_23:15:01_1998_893)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

今仁匹允‘

In article <199802100904.SAA25658 / picachu.netlab.co.jp>,
    matz / netlab.co.jp (Yukihiro Matsumoto) writes:
matz>   伓擖丰皏擖磥豸═輶襣洶中阬掠刈℅200墊蠢蘸動票
matz>   丐月蠢蘸撢迕曉啦怗及丐月皿伕弘仿丞
matz>   棵簽卅銀中杅及濩抸尥五

仿弁母呿卞丐勻凶rename旦弁伉皿玄毛ruby匹中④艉縣韝エ馱活阬盒墊凶日內
及民乓民卅手及匹手中中氏匹仄斤丹井〝(輔嗶引匹卞as is匹驕尥仄午五引允)

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

午井仄化銀中引允‘($_互醜綜覆擂卅及反Perl及抩酸曰)

左伉斥瓜伉氾奴互丐月午反蛻中か中井日鞅仄午仁井‘
-- 
[Mr.] OZAWA Sakuro
<mailto:crouton / po.shiojiri.ne.jp>
<http://www.shiojiri.ne.jp/%7Ecrouton/>

----Next_Part(Fri_Feb_13_23:15:01_1998_893)--
Content-Type: Text/Plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

#!/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|
  $_  
  old  .clone
  begin
    eval expr
    $stderr.print "File.rename('#{old}', '#$_')\n" if $n || $v 
    File.rename(old, $_) unless $n 
  rescue
    $stderr.print "#$!\n"
  end
end

----Next_Part(Fri_Feb_13_23:15:01_1998_893)----