[ruby-list:6417] rgrep (Re: call for scripts)

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

蟆鼴匹允﹝

In message "[ruby-list:6416] Re: call for scripts"
Shugo Maeda <shugo / po.aianet.ne.jp> wrote:

|[2 rgrep <application/octet-stream (7bit)>]

允心引六氏﹜誑馴①憧縞馱峇酗𧘇藨漱鴗④中縣峇ゥ阬
澎躂仄仄引仄凶﹝
# 兜躂卞exit($? >> 8)匹方中及匹仄斤丹井﹝

職卞手竣楔縣阬僸緧及杅互釐五仁卅勻化仄引勻凶及匹﹜
瘋蘸旦弁伉皿玄蟈蟲毛驕尥仄引允﹝


--Multipart_Sun_Feb_15_12:22:26_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 FileTest.directory?(path)
    if path[-1] ! /
      path  ath + '/'
    end
    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[0] ?-
  GREP_ARGS.push(arg)
  if /^-[ABef]/ arg  # option requires an argument
    optarg  RGV.shift
    unless optarg
      system(GREP_CMD, arg)  # print error message
      exit($? >> 8)
    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)
exit($? >> 8)

--Multipart_Sun_Feb_15_12:22:26_1998-1
Content-Type: text/plain; charset=ISO-2022-JP


瘋窖讀卅奶氾伊□正毛爛聒允月凜﹜

def foreach_files(path)
  ...
  foreach_files(...) do |path| yield(path) end
  ...
end

心凶中卞仄卅中午中仃卅中匹允互﹜

def foreach_files(path)
  ...
  foreach_files(...)
  ...
end

及方丹卞允月午芨尹日木凶奶氾伊□正皮伕永弁毛引引
婁五欐允﹜午中丹方丹卞反匹五卅中匹仄斤丹井﹝
# Proc.new反中丹普元匹允方友﹝
午閤勻凶及匹允互﹜奶氾伊□正皮伕永弁互芨尹日木凶井升丹井
匹⑹綜互啜丹丟玉手丐月及匹漱曰引允友﹝

僻凶方丹卅狪互蟆卞丐勻凶午閤丹及匹允互﹜丹引中荸瑁芊反
卅中匹仄斤丹井﹝

-- 
蟆鼴 阬

限卼檖潞摥轚郚鍹］瘊接葑硎眷熔嗑措兢面限