Ruby で書かれた which コマンド(Windows 用)。

which.rb

#!c:/bin/ruby/bin/ruby
# encoding: shift_jis

# いわゆる「パスの通った」ディレクトリリスト。
PATH                 = ENV["PATH"].split( /;/ ).collect { |path| path.gsub(/\\/, "/") }
# Windows で実行可能な拡張子。
EXECUTABLE_EXTENSION = ENV["PATHEXT"].split( /;/ ).collect { |ext| ext.gsub(/\./, "").downcase }

def search_command(pattern)
  PATH.each do |path|
    # 存在しないディレクトリはスキップします。
    next unless Dir.exists? path
    # パスが通っているディレクトリのファイルを 1 つずつ調べます。
    Dir.foreach( path ) do |file|
      if file =~ pattern then
        # 見つけたら、これ以上の探索を取りやめます。
        return "/#{path.gsub(/\\/, '/')}/#{file}"
      end
    end
  end
  return nil
end


if ARGV.length > 0 then
  ARGV.each do |target_name|
    pattern = Regexp.compile( "^#{target_name}(\\.(#{EXECUTABLE_EXTENSION.join('|')}))?$" )

    ret = search_command pattern

    puts ret unless ret.nil?
  end
else
  puts "#{__FILE__}: syntax error: missing agrument"
  puts "usage: #{__FILE__} <command-name>"
end