Port1 = open_port( {spawn, simple_work}, [in, out, use_stdio] )
#!/usr/bin/perl -w# simple_work programmy $buffer;$buffer = readline STDIN;print $buffer
port_command(Port1, "hello!\n")
資管系公告
即時通訊在校園生活裡日趨頻繁，為了提供師生更佳的資訊服務，感謝
微程式資訊(股)公司提供msnSDK訊息控制開發套件測試即日起將進行
校內系統開發整合等測試，期能完成校內專屬msn機器人，成為師生訊
息傳播另一重要管道
http://mis.chna.edu.tw/data3/average_show.asp?average_id=814
◎微程式新聞中心
http://www.program.com.tw/app/geturl.pl?id=5&url=../xml/news/case_page1.xml&sid=1&cid=
【2009/10/30 成交案例】感謝蓋德科技 選購「RFID門禁設備(MT180)一批」交貨完成。
【2009/10/21 成交案例】感謝高苑科大 選購「RFID讀卡機(MP-508U)一批」交貨完成。
【2009/10/13 成交案例】感謝狀態廣告 選購「MSN SDK」。
【2009/10/12 成交案例】感謝嘉義大學 購買「RFID讀卡機(MP-501SSRN)、控制器(MP-511RRW-N)一批」交貨完成。
【2009/10/05 成交案例】感謝蓋德科技 選購「RFID開發套件(Demo Kit-T&A)」交貨完成。
【2009/10/01 成交案例】感謝台灣互動 訂製「RFID 讀卡機模組(MP-507)一批」交貨完成。
◎微程式情報局 http://microprogram.blogspot.com/
【2009/10/30】TASHI 智慧生活從開門那一刻開始...
【2009/10/30】微程式「MSN機器人」成為校園安全守門員
◎lazy Guy http://rd-program.blogspot.com/
【2009/10/27】微程式「MSN機器人」成為校園安全守門員
【2009/10/14】他們都在做--msn機器人與校務/圖書館系統的整合
(A & B) [0 < Start A - End B < t]即為 A, B 二事件除了同時發生之外，加上 A, B 的時間有些差距。
(A, 1)[Start A - End A > t](註：以上二式都是文章中的原文照列，不過看起來有一些矛盾的疑問。)
開頭記號、全長、 master node 代碼、 sensor 代碼、命令、資料、檢查碼、尾端記號。假設 master node 代碼是 0x0B ， sensor 代碼是 0x02 ，命令是 "send" 、代碼是 43 ，而資料是 10 02 83 84 01 00 01 01 00 00 00 58 6F BD 3F F9 02 15 D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 BE 8B 10 ，檢查碼是 03 6B ，資料開頭記號是 02 ，尾端記號是 03 ，則合起來的資料為：
urn:sensor:com:waterlevel:[值]欄位 "com" 是製造商公司。
urn:sensor:com:waterflux:[值 1].[值 2].[值 3].[值 4]用 "." 做間隔，區分各欄位值。
This page looks plain and unstyled because you're using a non-standard compliant browser. To see it in its best form, please visit upgrade to a browser that supports web standards. It's free and painless.
|
 |
 |
allPermu :: (Eq a) => [a] -> [[a]]
allPermu xs = compact rs
where rs = map (map (\x -> xs!!x)) (allPermu' [0..((length xs)-1)])
allPermu' :: (Eq a) => [a] -> [[a]]
allPermu' [] = [[]]
allPermu' xs = concat (map f xs)
where f = \x -> map (x:) (allPermu' (filter (x/=) xs))
compact :: (Eq a) => [a] -> [a]
compact [] = []
compact (x:xs) = if any (x==) xs then compact xs
else x : compact xs
map f [1, 2] = [f 1, f 2] = [map (1:) (allPermu' (filter (1/=) [1, 2])),
map (2:) (allPermu' (filter (2/=) [1, 2]))]
filter (1/=) [1, 2] = [2]
filter (2/=) [1, 2] = [1]
allPermu' (filter (1/=) [1,2]) = allPermu' [2] --這裡細節省略，我們知道 [2] 全部排列就是 [[2]]
allPermu' (filter (2/=) [1,2]) = allPermu' [1] = [[1]]
map f [1, 2] = [ map (1:) [[2]] , map (2:) [[1]] ]
= [ [[1, 2]] , [[2, 1]]]
allPermu' xs = map f xs
where f = \x -> map (x:) (allPermu' (filter (x/=) xs))
allPermu' xs = concat (map f xs)
where f = \x -> map (x:) (allPermu' (filter (x/=) xs))
allPermu' :: (Eq a) => [a] -> [[a]]
allPermu' [] = [[]]
allPermu' xs = concat (map f xs)
where f = \x -> map (x:) (allPermu' (filter (x/=) xs))
map (map (\x -> [1, 2]!!x)) [[0, 1], [1, 0]]
allPermu xs = rs
where rs = map (map (\x -> xs!!x)) (allPermu' [0..((length xs)-1)])
引用文獻
OTP 的能力來自於一些特性，諸如容錯、可延伸能力、以及動態碼的更新等等，都由它的行為提供。也就是說，寫 callback 的程式人不用煩這些事情了，因為 OTP 行為會提供這些能力。好的，菲利普，「行為」是指什麼呢？一件行為，就是像它聽起來像是的東西 ── 像一個桶子裝了一種系統或平台的全部普通行為。 (我說：這到底是什麼樣的直覺？)
-module(movie_store).
-behaviour(gen_server).
-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]).
-export([checkout/2, lookup/1, start_link/0]).
start_link() -> gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).
checkout(Customer, Movie) -> gen_server:call(?MODULE, {checkout, Customer, Movie}).
lookup(Customer) -> gen_server:call(?MODULE, {lookup, Customer}).
init([]) ->
Tab = ets:new(?MODULE, []),
{ok, Tab}.
handle_call({checkout, Customer, Movie}, _From, Tab) ->
Response = case ets:lookup(Tab, Customer) of
[] ->
ets:insert(Tab, {Customer, Movie}),
{ok, Movie};
[{Customer, OtherMovie}] ->
{already_checked_out, OtherMovie}
end,
{reply, Response, Tab};
handle_call({lookup, Customer}, _From, Tab) ->
Reply = case ets:lookup(Tab, Customer) of
[{Customer, Movie}] ->
Movie;
[] ->
none
end,
{reply, Reply, Tab}.
handle_cast(_Msg, State) -> {noreply, State}.
handle_info(_Msg, State) -> {noreply, State}.
terminate(_Reason, _State) -> ok.
code_change(_OldVersion, State, _Extra) -> {ok, State}.
init([]) ->用 ets 建立資料表並傳回。 ets 是內建的記憶體資料庫。在部署的程式中，這或許有時有些 ... 耐久。 gen_server 的關鍵元件是程式狀態。在本例中，你將看到 Tab 被丟來丟去，丟到每一樣程式單元中，表達現有的錄影帶店狀態 (誰購買了什麼片) 。
Tab = ets:new(?MODULE, []),
{ok, Tab}.
imoo 提供2種創新的行銷服務模式 handle_call({checkout, Customer, Movie}, _From, Tab) ->
Response = case ets:lookup(Tab, Customer) of
[] ->
ets:insert(Tab, {Customer, Movie}),
{ok, Movie};
[{Customer, OtherMovie}] ->
{already_checked_out, OtherMovie}
end,
{reply, Response, Tab};
記得之前說的一點 gen_server:call(...) 嗎？這是 gen_server 呼叫的東西。你們可能想知道為什麼 handle_call 定義了二個函數，而且引用相同數量的參數 (參數數量表達為 /x ，如 "functioname/2" 裡面的 /2 ) 。看它第一個參數，是有三項的一列記錄。再看看handle_call({lookup, Customer}, _From, Tab) ->
Reply = case ets:lookup(Tab, Customer) of
[{Customer, Movie}] ->
Movie;
[] ->
none
end,
{reply, Reply, Tab}.
這個 handle_call/3 定義一個函數檢查看看客人有沒有購買了影片。如果有，傳回一筆記錄包含了客人和電影的名字。如果沒有，則傳回 none 。 (我說：重講一次，應該說是找得到一筆記錄符合 {Customer, Movie} 就傳回電影名稱，否則，如果找不到就傳回 none 。) 我不要講這個太多，因為以正在講的 handle_call/3 來說，這個東西太細。