ExHttpSampleEconomy - デカルト言語 - 並列ロジック プログラミング言語 Wiki - デカルト言語 - 並列ロジック プログラミング言語

←　前のページに戻る

1.3 経済指標表示プログラム

1.3.1 実行例

$ descartes keizai.dec

loading...completed
主な経済指標
日経平均(円)    8,590.57  -193.89  6日大引
NYダウ(ドル)    11,240.26  -253.31  2日16:30
英FTSE100       5,132.70  +30.12  6日12:59
ドル/円         77.28 - .30  +0.48円安  6日20:54
ユーロ/円       109.16 - .20  +0.54円安  6日20:54
長期金利(%)     0.985  -0.025  6日15:10
NY原油(ドル)    86.45  -2.48  2日終値

1.3.2 ソース

#!/usr/local/bin/descartes

? ::sys <PrintResultOff>;

<proxy #proxy>
	(::sys <getenv #p http_proxy> | <is #p "">)
	::sys <split #p1 #p "/">
	( <eq #p1 ()> <is #proxy "">
	 |
	  ::sys <car #p2 #p1>
	  <is "http:" #p2> ::sys <cadr #proxy #p1>
	 |
	  <is #proxy #p>
	 )
	;


<disp>
	<printf "loading...">
	::sys <httpget #h #b "http://www.nikkei.com/" <proxy _>> 
	::sys <strdelcntl #bu #b>
	::sys <replacestr #b1 #bu "</td>" "  ">
	::sys <replacestr #b2 #b1 "</th>" "	">
	::sys <replacestr #b3 #b2 "ドル/円" "ドル/円	">
	::sys <htmltags #t #b3 'div class="cmn-sub_market"' 'div class="cmn-sub_square_banner"'>
	::sys <htmltags #t1 #t "tr" "/tr">
	::sys <erasealltags #t2 #t1>
	::sys <car #list #t2>
	<print "completed">
	<for (#i 60)
		<print 主な経済指標>
		<printlistnl #list>
		<print>
		::sys <sleep 10>
	>
	;


? {<disp>};

1.3.3 ソース解説

--

--