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

< ^ > P N |<>|^_>< --- | ~ ...Help
--Multipart_Sun_Feb_15_01:03:06_1998-1
Content-Type: text/plain; charset=ISO-2022-JP

蟆鼴匹允﹝

In message "[ruby-list:6373] call for scripts"
Yukihiro Matsumoto <matz / netlab.co.jp> wrote:

|漆笙エ藚僈堣楔阬觶禊呿及葆嘍毛中④中赮␆𩥝酗庥═エ馱活阬
刈撢拺中丹懍毛綜欠丹午閤中引仄凶‘互﹞澎葭卞丐月手及方曰手
|手勻午恌中手及互丐月井手仄木卅中午嗶尹﹞撢拺竭六日木月方
|丹卅ruby旦弁伉皿玄毛抃引允‘

Jed卞尥中化中月rgrep氘及旦弁伉皿玄毛中④艉牏楔縑阬
棒艘及朿坌反system("grep", ...)匹允:-)
域殺奶氾伊□正(及爛聒)及拺鎖及勾手曰匹允﹝
切卅心卞rgrep及r反凶少氏ruby元扎卅仁化(癲凶曰蟆井)recursive分午
閤中引允﹝


*銀中杅及濩抸*

湘呿讀卞grep午⑺元匹允互﹜白央奶伙抩及醫曰卞犯奴伊弁玄伉毛隙爛
允月午﹜瘋窖讀卞grep仄引允﹝


--Multipart_Sun_Feb_15_01:03:06_1998-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="rgrep"
Content-Transfer-Encoding: 7bit

#!/usr/local/bin/ruby

GREP_CMD  grep"
GREP_ARGS  ]

def foreach_files(path)
  if path[-1] ?/
      path  ath[0..-2]
  end
  if FileTest.directory?(path)
    Dir.foreach(path) do |file|
      if file ! ." and file ! .."
	foreach_files(path + "/" + file) do |file|
	  yield(file)
	end
      end
    end
  else
    yield(path)
  end
end

while arg  RGV.shift and arg /^-/
  GREP_ARGS.push(arg)
  if arg /^-[ABef]/
    optarg  RGV.shift
    unless optarg
      STDERR.print("grep: option requires an argument -- #{arg[1..-1]}\n")
      system(GREP_CMD, '-h')   # print usage
      exit(1)
    end
    GREP_ARGS.push(optarg)
  end
end
GREP_ARGS.push(arg) if arg   # expr

for path in ARGV
  foreach_files(path) do |file|
    GREP_ARGS.push(file)
  end
end
system(GREP_CMD, *GREP_ARGS)

--Multipart_Sun_Feb_15_01:03:06_1998-1
Content-Type: text/plain; charset=ISO-2022-JP


|  睡迕今木凶諦卞反ruby呿毛難樊艇呿仄引允

冞手扔奶件じ曰互俓仄中匹允:-)

-- 
蟆鼴 阬

限卼檖潞摥轚郚鍹］瘊接葥捱偃滌嗑措兢面限