HTTP アクセスHTTP 経由でファイルをダウンロード汎用のストリームコピー関数 copy を使って、HTTP 経由のファイルダウンロードができます。
import(net.http)
copy('http://sourceforge.jp/', 'sf.html')
プロキシを通す場合は、以下のように net.http.addproxy() を使ってプロキシサーバの設定をしてください。
import(net.http)
net.http.addproxy('xx.xx.xx.xx', 8080, 'username', 'password')
copy('http://sourceforge.jp/', 'sf.html')
HTTP 経由で CSV ファイルを読み込んでデータ処理SVN のレポジトリに格納されている CSV ファイルを HTTP プロトコル経由で読み込んで表示します。
import(csv)
import(net.http)
uri = 'http://sourceforge.jp/projects/gura/svn/view/trunk/' \
'test/50records-en.csv?view=co&root=gura'
Person = struct(name:string, email:string, gender:string, age:number, rest*)
people = Person * csv.reader(uri):iter
println(people)
CSV ファイルを読み込む関数 csv#read() そのものは、HTTP に関して何も知りません。言語本体が、パス名から適切なモジュール (上記の場合 net.http) のオープン関数を呼び出し、ストリームにして関数に渡しています。関数がストリームを引数として受け取るようにしておけば、HTTP などの通信プロトコルや、さまざまなデータ構造にアクセスできるようになります。 データベースアクセスと HTTP プロトコルHTTP サーバとして動作します。日付と 3 個所の温度を記録した SQLite3 データベースファイル temperature.sqlite3 を読み込んでグラフ描画した結果を、クライアントに返します。 スクリプトを実行すると、HTTP のリクエスト待ちになります。ブラウザから http://localhost/?site=0,1 のようにアクセスしてください。 Linux で動作させる場合は、ルート権限でスクリプトを実行するか、ポート番号を 1024 以上に書き直してください。
import(re)
import(cairo)
import(net.http)
import(png)
import(sqlite3)
makeGraph(iSites[]:number) = {
tbl = struct(day:number, temps*:number) * \
sqlite3.db('temperature.sqlite3').query('select * from sites')
img = image(`rgba, 320, 320, `white)
[wdAxis, htAxis] = [img.width * 0.9, img.height * 0.9]
[xAxis, yAxis] = [(img.width - wdAxis) / 2, (img.height - htAxis) / 2]
[dayMax, dayMin] = [tbl:*day.max(), tbl:*day.min()]
dayRange = dayMax - dayMin
[tempMax, tempMin] = [tbl:*temps:*max().max(), tbl:*temps:*min().min()]
tempRange = tempMax - tempMin
calcX(day) = xAxis + (day - dayMin) * wdAxis / dayRange
calcY(temp) = yAxis + htAxis - (temp - tempMin) * htAxis / tempRange
img.cairo {|cr|
cr.set_line_width(img.height / 300)
cr.rectangle(xAxis, yAxis, wdAxis, htAxis).stroke()
cr.save {
cr.set_dash([img.height / 200, img.height / 200], 0)
cr.move_to(xAxis, calcY(0)).line_to(xAxis + wdAxis, calcY(0))
cr.stroke()
}
for (iSite in iSites) {
func = cr.move_to
for (item in tbl) {
func(calcX(item.day), calcY(item.temps[iSite]))
func = cr.line_to
}
cr.stroke()
}
}
img
}
net.http.server(port => 80).wait {|req|
iSites = [0]
query = net.http.parsequery(req.query)
if (query.haskey('site')) {
iSites = tonumber(query['site'].split(','):list)
}
buff = binary()
makeGraph(iSites).pngwrite(buff)
req.response('200', nil, buff,
'Server' => 'Gura_HTTP_Server' 'Connection' => 'close')
}
|