人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

下の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

●質問者: totoiro
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:BODY EOS HTML open Perl
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● yamaneroom
●60ポイント

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


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

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ