Linux World Expo/Tokyo で Perl バッグを手に入れた
中村 のりつぐ です。(オライリーの本を買ったから)

In article <19990929192010M.os / iij.ad.jp> 
OHARA Shigeki <os / iij.ad.jp> wrote:
> UNIX ならこんな感じでしょうか。
> 
> #!/usr/local/bin/ruby
> require 'cgi'
> words = (ARGV .size == 0) ? STDIN .gets .chomp : ARGV .join(' ')
> url = 'http://www.infoseek.co.jp/Titles?qt=' + CGI::escape(words) +
>   '&lk=noframes&svx=10&col=JW&qp=0&nh=100'                              
> exec('w3m', url)

表紙なんか表示するだけ無駄だから、
結構いいかもしれませんね。

ということで、他の所のも作ってみました。

o netscape を呼び出すようにしてみた
o cgi というのがみつからなかったので、
  cgi-lib を使用した(ruby-1.4.0 だから？)
o 実用を考えたら本体を同じにしてコマンド名で
  動作を分けるようにするのだろうか？


#!/usr/local/bin/ruby
require 'cgi-lib'
words = (ARGV .size == 0) ? STDIN .gets .chomp : ARGV .join(' ')
url = 'http://www.excite.co.jp/search.gw?s=' + CGI::escape(words) +
  '&c=web&lk=excite_jp&lang=jp&target=combined'
exec("netscape -remote 'openURL(" + url + ")'")


#!/usr/local/bin/ruby
require 'cgi-lib'
words = (ARGV .size == 0) ? STDIN .gets .chomp : ARGV .join(' ')
url = 'http://search.fresheye.com/?kw=' + CGI::escape(words)
exec("netscape -remote 'openURL(" + url + ")'")


#!/usr/local/bin/ruby
require 'cgi-lib'
words = (ARGV .size == 0) ? STDIN .gets .chomp : ARGV .join(' ')
url = 'http://www.goo.ne.jp/default.asp?MT=' + CGI::escape(words) +
  '&WTS=ntt&SM=MC&DE=2&DC=10&_v=2'
exec("netscape -remote 'openURL(" + url + ")'")


#!/usr/local/bin/ruby
require 'cgi-lib'
words = (ARGV .size == 0) ? STDIN .gets .chomp : ARGV .join(' ')
url = 'http://www.infoseek.co.jp/Titles?qt=' + CGI::escape(words) +
  '&lk=noframes&svx=10&col=JW&qp=0&nh=100'
exec("netscape -remote 'openURL(" + url + ")'")


#!/usr/local/bin/ruby
require 'cgi-lib'
words = (ARGV .size == 0) ? STDIN .gets .chomp : ARGV .join(' ')
url = 'http://www.lycos.co.jp/cgi-bin/pursuit?cat=jp&query=' +
  CGI::escape(words) + '&matchmode=and&adv=0'
exec("netscape -remote 'openURL(" + url + ")'")

       中村 典嗣  E-mail:     nnakamur / mxq.mesh.ne.jp