#!/usr/local/bin/ruby -Ks # フォームテストCGI by 北海道大学非常勤講師今野滋 sk@ec.hokudai.ac.jp html = < フォームテスト

フォームテスト

method="GET"

method="POST"

method="POST" enctype="multipart/form-data"

ENV['SCRIPT_NAME']

#{ ENV['SCRIPT_NAME'   ].to_s.gsub(/&/,"&").gsub(//,">").gsub(/"/,""") }

ENV['QUERY_STRING']

#{ ENV['QUERY_STRING'  ].to_s.gsub(/&/,"&").gsub(//,">").gsub(/"/,""") }

ENV['REQUEST_METHOD']

#{ ENV['REQUEST_METHOD'].to_s.gsub(/&/,"&").gsub(//,">").gsub(/"/,""") }

ENV['CONTENT_TYPE']

#{ ENV['CONTENT_TYPE'  ].to_s.gsub(/&/,"&").gsub(//,">").gsub(/"/,""") }

STDIN.read

※改行コードとヌル文字を、見える形に置換してあります（¥0,¥f,¥v,¥r,¥n）

#{      STDIN.read(10240).to_s.gsub(/&/,"&").gsub(/\0/,"¥0").gsub(/\t/," ¥t ").gsub(/\r\n|\r|\n/){
  kai = $&
  if  kai == "\r\n" then kai = "¥r¥n\n"
  elsif kai == "\r" then kai = "¥r\n"
  else                   kai = "¥n\n"
  end
  kai
}.gsub(/\f/,"¥f\n").gsub(/\v/,"¥v\n").gsub(//,">").gsub(/"/,""") }

添付するファイルは、サイズが 1kb 以下のものにしてください。ページのソースもご覧ください。以上です。

EOF print <