erl -boot ....
でブートスクリプトを読み込んでいる。System Principlesとscript(4)がブートスクリプトの解説
tsung_controller:start
|-ts_controller_sup:start_link(LogDir)
|-supervisour:start_link({local, ?MODULE}, ?MODULE, [LogDir])
|-ts_controller_sup:init
|-supervisour:start_child(ts_controller_sup:initの返り値を利用する)
|-ts_config_server:start
|-ts_mon:start
|-ts_os_mon:start
|-ts_timer:start
|-ts_msg_server:start
|-ts_user_server:start
tsung_controller:start_phase(load_config)
tsung_controller:start_phase(start_os_monitoring)
tsung_controller:start_phase(start_clients)
テストデータとかを作るのに使いそうなので作ってみた。
code
def sequencetext(seq, text, indent = 3)
src = ''
seq.each_index do |i|
src << " " * (i * indent) +
"seq[" + i.to_s + "][0].inject('') do |result," + seq[i][1].to_s+ "|\n"
src << " " * (i.next * indent) + "result << \n"
end
src << " " * (seq.length * indent) + "\"#{text}\"\n"
(seq.length - 1).downto(0) do |n|
src << " " * (n * indent) + "end\n"
end
eval(src, binding)
end
使い方
irb(main):018:0> puts sequencetext([[[1,2,3,4], "hoge"], [[1,2,3,4], "hogehoge"]],
'#{hoge}, #{hogehoge}\n')
<ext([[[1,2,3,4], "hoge"], [[1,2,3,4], "hogehoge"]], '#{hoge}, #{hogehoge}\n')
1, 1
1, 2
1, 3
1, 4
2, 1
2, 2
2, 3
2, 4
3, 1
3, 2
3, 3
3, 4
4, 1
4, 2
4, 3
4, 4
=> nil
中央線の終電が遅れてバイト先に泊まりになってしまった。
用意していた歯磨きと洗顔が役に立ったよ。
まあ、小さいころあったお泊り会だと思えばよいか。一人だけど。。。
一々確認していかなければいけないのが面倒くさい。
テストフレームワークがあった気がするけど何だっけ?>ぐぐれ自分
バイトで使うのでErlang入れた(どんなバイトだよ。。。)
erlang-modeすごいね。セミコロン打つと、自動的に次の行に関数宣言が補完されるし。
elispかけないけど、こんな便利なもの作れるのなら、覚えたくなった。
(rubyとかと比べて)挙動の違いにはまる。
こんなコードを書いたとき、
$num=2
$numbers = array($num - 1,
$num - 2,
$num - 3,
$num - 4);
function natural_number($n) { return ($n>0); }
$natural = array_filter($numbers, 'natural_number');
function not_natural_number($n) { return !($n>0); }
$not_natural = array_filter($numbers, 'not_natural_number');
print_r($natural);
print_r($not_natural);
出力はこんな風になる。
Array
(
[0] => 1
)
Array
(
[1] => 0
[2] => -1
[3] => -2
)
ArrayがHashを兼ねているのはわかる。だからって、ここで添え字まで引き継ぐことは無いんじゃない?
phpのImage_Graphで、最大値、最小値、もしくは0を表示させたいときの話。
こんな風にshowLabelを指定する。
$axis_y =& $plotarea->getAxis(IMAGE_GRAPH_AXIS_Y);
$axis_y->showLabel(IMAGE_GRAPH_LABEL_MINIMUM|
IMAGE_GRAPH_LABEL_MAXIMUM|
IMAGE_GRAPH_LABEL_ZERO
);
これで、範囲が10~100見たいなときも、下限の10が表示される。
やりましょう read more
on Smalltalk76