#!/usr/bin/env ruby #coding: euc-jp require 'cgi' require 'kconv' cgi = CGI.new(:accept_charset => "EUC-JP") print("Content-type: text/html; charset=EUC-JP\n\n") it = cgi["item"] progname = "choice.rb" choice = Array.new file = Dir.pwd + "/mydb/choice.txt" open(file, 'r:euc-jp') do |read| while data = read.gets if /(\S+)/ =~ data choice << data.toeuc.chomp end end end print("\n") print("\n") print("おいでませ\n") print("\n") print("\n") print("

えらんでね

\n") printf("
\n", progname) for i in choice printf("%s\n", choice.rindex(i), i) end print("

") print("

") print("
\n") printf("

以前買った人はこんな商品に注目していました。

\n

%s

", choice[it.to_i]) print("\n") print("\n")