下のRubyのコードをPerl(PHP),htmlに変換してください。sinatra導入時のコードです。


#!/usr/local/bin/ruby
require 'rubygems'
require 'sinatra'

get '/' do
src = <<"EOS"
<form method="post" action="/" enctype="multipart/form-data" />
<input type="file" name="textdata" />
<input type="submit" value="load"/>
</form>
EOS
response.body = src
end


post '/' do
text = params[:textdata][:tempfile].read
filename = params[:textdata][:filename]

src = <<"EOS"
<form method="post" action="/" enctype="multipart/form-data" />
<textarea name="savetext" cols="60" rows="10">#{text}</textarea>
<input type="hidden" name="_method" value="put">
<input type="hidden" name="filename" value="#{filename}">
<br>
<input type="submit" value="save" />
</form>
EOS

response.body = src
end


put '/' do
text = params[:savetext]
filename = params[:filename]

open(filename, "wb") do |fh|
fh.write text
end
redirect '/saved'
end

get '/saved' do
"complete"
end

回答の条件
  • URL必須
  • 1人1回まで
  • 13歳以上
  • 登録:2010/07/16 16:24:08
  • 終了:2010/07/23 16:25:02

回答(1件)

id:yamaneroom No.1

yamaneroom回答回数1040ベストアンサー獲得回数612010/07/16 16:53:52

ポイント60pt

RubyのフレームワークをPerlに変換するという質問の主旨が分からない。


それにしても、支払率33.33%とは悪質な質問者だな。

http://q.hatena.ne.jp/totoiro/

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません