npm install grunt-peon-gui --save-dev

var psi = require('psi');
psi({
    // key: '...', optional
    url: 'http://html5rocks.com',
    paths: '',           // optional
    locale: 'en_GB',     // optional
    strategy: 'mobile',  // optional
    threshold: 80        // optional
});

%% Created: 2011-5-26
%% Description: TODO: Add description to env
%%
-module(env).
%% There are six entry points in the Windows registry,
%% top level keys. They can be abbreviated in the win32reg module as:
%% Abbrev.          Registry key
%% =======          ============
%% hkcr             HKEY_CLASSES_ROOT
%% current_user     HKEY_CURRENT_USER
%% hkcu             HKEY_CURRENT_USER
%% local_machine    HKEY_LOCAL_MACHINE
%% hklm             HKEY_LOCAL_MACHINE
%% users            HKEY_USERS
%% hku              HKEY_USERS
%% current_config   HKEY_CURRENT_CONFIG
%% hkcc             HKEY_CURRENT_CONFIG
%% dyn_data         HKEY_DYN_DATA
%% hkdd             HKEY_DYN_DATA
% 顶级路径必须小写
-define(CURRENT_USER, "\\hkey_current_user\\Environment").
-define(CURRENT_USER_TEST, "\\hkey_current_user\\EnvironmentTest").
%%
%% Exported Functions
%%
-export([environments/0]).
%%
%% Local Functions
%%
environments() ->
    % 以读写模式打开注册表
    {ok, Reg} = win32reg:open([write]),
    % 设置当前Key
    case win32reg:change_key(Reg, ?CURRENT_USER) of
        ok ->
            % Change key, 如果不存在就创建
            win32reg:change_key_create(Reg, ?CURRENT_USER_TEST),
            % 从文件中读取Tuples
            {ok, Envs} = file:consult("./win32reg/env.config"),
            % 逐条创建注册表Item
            Result = lists:foreach(fun({Key, Value}) ->
                win32reg:set_value(Reg, Key, Value) end, Envs),
            % 关闭注册表
            win32reg:close(Reg),
            % 返回值
            Result;
        _ ->
            false
    end.

{"ANDROID","D:\\usr\\android-sdk-windows\\platform-tools"}.
{"ANT_HOME","D:\\usr\\apache-ant-1.8.0"}.
{"ARCHDIR","windows"}.
{"CAKE","D:\\chaw\\cakephp\\cake\\console"}.
{"CEAN_SERVER","http://cean.process-one.net"}.
{"ERLANG_HOME","D:\\usr\\erl5.9.1"}.
{"ffmpeg","D:\\usr\\ffmpeg-git-9d4cb45-32-bit-shared\\bin"}.
{"GETTEXT_TOOLS","D:\\usr\\gettext-tools-0.13.1.bin.woe32"}.
{"GIT","D:\\usr\\Git\\bin"}.
{"Haskell","D:\\usr\\Haskell\\2011.2.0.1"}.
{"HOME","C:\\Documents and Settings\\Administrator"}.
{"HTMLHELP","D:\\Program Files\\HTML Help Workshop"}.
{"JAVA_HOME","D:\\Program Files\\Java\\jdk1.6.0_24"}.
{"LUA_HOME","D:\\usr\\lua\\Lua\\5.1"}.
{"M2_HOME","D:\\usr\\apache-maven-3.0.3"}.
{"MAVEN_OPTS","-Xms256m -Xmx512m"}.
{"MongoDB","D:\\usr\\MongoDb\\mongodb-win32-i386-1.8.1\\bin"}.
{"MYSQL","D:\\usr\\mariadb-5.2.6-win32\\bin"}.
{"NODE_PATH","C:\\Documents and Settings\\Administrator\\Application Data\\npm\\node_modules;"}.
{"PANDOC","D:\\Program Files\\Pandoc\\bin"}.
{"PHP_HOME","D:\\usr\\php"}.
{"PROTO_BUFFER","D:\\usr\\protoc-2.4.1-win32"}.
{"PYJAMAS_HOME","G:\\pyjamas-0.8.1~+alpha1"}.
{"PYTHON_HOME","D:\\usr\\python26"}.
{"RabbitMQ","D:\\usr\\RabbitMQ Server\\rabbitmq_server-2.4.1\\sbin"}.
{"RABBITMQ_CONSOLE_LOG","new"}.
{"SVN","D:\\usr\\svn-win32-1.6.6\\bin"}.
{"TITANIUM_HOME","C:\\Documents and Settings\\Administrator\\Application Data\\Titanium\\mobilesdk\\win32\\1.7.2"}.

%% Created: 2011-5-26
%% Description: TODO: Add description to env
-module(env).
-define(CURRENT_USER, "\\hkey_current_user\\environment").
%%
%% Include files
%%
%%
%% Exported Functions
%%
-export([environments/0]).
%%
%% API Functions
%%
%%
%% Local Functions
%%
environments() ->
    % 打开注册表
    {ok, Reg} = win32reg:open([read]),
    % 设置当前Key
    case win32reg:change_key(Reg, ?CURRENT_USER) of
        ok ->
            % 读取当前Key下的所有值
            {ok, KVs} = win32reg:values(Reg),
            % 打开文件
            {ok, S} = file:open("data1.dat", write),
            lists:foreach(fun({KK,VV}) ->
                              io:format(S, "~p = ~p~n",[KK, VV]) % 写入
                       end, KVs),
            % 关闭注册表
            win32reg:close(Reg),
            % 关闭文件
            file:close(S);
        _ ->
            false
    end.

[root@localhost webbench-1.5]# ./webbench -c 10000 -t 30 http://www.hezhiqiang.info/index.php
Webbench - Simple Web Benchmark 1.5
Copyright (c) Radim Kolar 1997-2004, GPL Open Source Software.
Benchmarking: GET http://www.hezhiqiang.info/index.php
10000 clients, running 30 sec.
Speed=21030 pages/min, 3073918 bytes/sec.
Requests: 8441 susceed, 2074 failed.

/* 如果VCL定义文件内容太多可以分离到单独的文件,并包含进来 */
#include "backends.vcl";
#include "ban.vcl";
backend default {
	.host = "127.0.0.1";
	.port = "8080";
	/* Varnish 到后端服务器的连接超时, */
	.connect_timeout = 1s;
    /* 和后端服务器建立连接后,即进入等待接收响应状态,如果响应的第一个字节在5s内没有到达,被认为超时*/
	.first_byte_timeout = 5s;
    /* 第一个字节到达后, 如果后续字节在2s内没有到达,被认为是超时 */
	.between_bytes_timeout = 2s;
	.probe = {
		.url = "/";
		.interval = 5s;
		.timeout = 1 s;
		.window = 5;
		.threshold = 3;
    }
}
backend default8081 {
	.host = "127.0.0.1";
	.port = "8081";
	.connect_timeout = 1s;
	.first_byte_timeout = 5s;
	.between_bytes_timeout = 2s;
	.probe = {
		.url = "/";
		.interval = 5s;
		.timeout = 1 s;
		.window = 5;
		.threshold = 3;
    }
}

struct vrt_backend_probe {
	const char	*url;
	const char	*request;
	double		timeout;
	double		interval;
	unsigned	exp_status;
	unsigned	window;
	unsigned	threshold;
	unsigned	initial;
};

directory hezhiqiang round-robin {
	{.backend = default;}
	{.backend = default8081;}
}

void
VRT_init_dir(struct cli *cli, struct director **dir, const char *name,
    int idx, const void *priv)
{
	ASSERT_CLI();
	if (!strcmp(name, "simple"))
		VRT_init_dir_simple(cli, dir, idx, priv);
	else if (!strcmp(name, "hash"))
		VRT_init_dir_hash(cli, dir, idx, priv);
	else if (!strcmp(name, "random"))
		VRT_init_dir_random(cli, dir, idx, priv);
	else if (!strcmp(name, "dns"))
		VRT_init_dir_dns(cli, dir, idx, priv);
	else if (!strcmp(name, "round-robin"))
		VRT_init_dir_round_robin(cli, dir, idx, priv);
	else if (!strcmp(name, "client"))
		VRT_init_dir_client(cli, dir, idx, priv);
	else
		INCOMPL();
}

sub vcl_recv {
	# 把后端服务器指向上面定义的 directory
	set req.backend = hezhiqiang;
}

sub vcl_recv {
	/* Set which backend will be used  */
	set req.backend = hezhiqiang;
	/* Load balance by user agent */
	set client.identity = req.url;
	/* Load balance by user agent */
	#set client.identity = client.ip;
	/* Load balance by user agent */
	#set client.identity = req.http.user-agent;
}

director directorname dns {
	.list = {
		.host_header = "www.example.com";
		.port = "80";
		.connect_timeout = 0.4;
		/* 使用掩码标识的网段作为后端 */
		"192.168.15.0"/24;
		"192.168.16.128"/25;
	}
	/* 指定DNS查询的缓存时间 */
	.ttl = 5m;
	/* 追加到客户端提供的主机头后面 */
	.suffix = "internal.example.net";
}

/*import std;*/
backend default {
	.host = "127.0.0.1";
	.port = "8080";
	/* Varnish 到后端服务器的连接超时, */
	.connect_timeout = 1s;
    /* 和后端服务器建立连接后,即进入等待接收响应状态,如果响应的第一个字节在5s内没有到达,被认为超时*/
	.first_byte_timeout = 5s;
    /* 第一个字节到达后, 如果后续字节在2s内没有到达,被认为是超时 */
	.between_bytes_timeout = 2s;
	.probe = {
		/* 健康检查的目标URL */
		.url = "/index.html";
		/* 每次检查间隔 */
		.interval = 5s;
		/* 超时 */
		.timeout = 1 s;
		/* 检查次数 */
		.window = 5;
		/* 成功次数 */
		.threshold = 3;
    }
}
backend default8081 {
	.host = "127.0.0.1";
	.port = "8081";
	.connect_timeout = 1s;
	.first_byte_timeout = 5s;
	.between_bytes_timeout = 2s;
	.probe = {
		.url = "/";
		.interval = 5s;
		.timeout = 1 s;
		.window = 5;
		.threshold = 3;
    }
}
director hezhiqiang round-robin {
	{.backend = default;}
	{.backend = default8081;}
}
sub vcl_recv {
	set req.backend = hezhiqiang;
	# Load balance by url
	set client.identity = req.url;
	# Load balance by client ip
	#set client.identity = client.ip;
	# Load balance by user agent
	#set client.identity = req.http.user-agent;
	# std.log("fishy is going on with the vhost" + req.http.host);
	if (req.request == "GET" && req.url ~ "\.(gif|jpg|png|swf|css|js)$") {
		unset req.http.Cookie;
	}
	# do not cache the /tag, /textpattern, and /category
	if ( req.url ~ "^/tag/" ) {
		return (pass);
	}
	if ( req.url ~ "^/textpattern/") {
		return (pass);
	}
	if ( req.url ~ "^/category/" ) {
		return (pass);
	}
	if ( req.url ~ "^/html/") {
		return (pass);
	}
}
sub vcl_deliver {
	# add debugging headers, so we can see what's cached
	set resp.http.X-Served-By = server.hostname;
	if (obj.hits > 0) {
		set resp.http.X-Cache = "HIT";
		set resp.http.X-Cache-Hits = obj.hits;
	}
	else {
		set resp.http.X-Cache = "MISS";
	}
	# remove some headers added by varnish
	# unset resp.http.Via;
	# unset resp.http.X-Varnish;
}

-module(kvs).
%% Include files
%% Exported Functions
-export([start/0, store/2, lookup/1]).
%% API Functions
start() ->
    io:format("starting server...~n"),
    % 启动kvs服务,派生一个新进程,进入循环
    register(kvs, spawn(fun()-> loop() end)).
store(Key, Value) ->
    io:format("store~n"),
    rpc({store, Key, Value}).
lookup(Key) ->
    io:format("call lookup~n"),
    rpc({lookup, Key}).
% Local Functions
% 消息代理函数
rpc(Q) ->
    io:format("rpc~n"),
    % 向进程kvs发送消息 {self(), Q},其中self()表示当前进程Pid, Q为参数
    kvs ! {self(), Q},
    receive
        {kvs, Reply} ->
            Reply
    end.
loop() ->
    io:format("entering loop...~n"),
    receive
        {From, {store, Key, Value}} ->
            io:format("value ~p with ~p stored~n", [Value, Key]),
            put(Key, {ok,Value}),
            From ! {kvs, true},
            loop();
        {From, {lookup, Key}} ->
            io:format("get the value of key: ~p~n", [Key]),
            From ! {kvs, get(Key)},
            loop()
    end

erl -sname server
erl -sname client

erl -name server
erl -name client

(server@localhost) > kvs:start().
starting server...
entering loop...
true

(client@localhost) > rpc:call('server@localhost',kvs,store,[google, "http://www.google.com"]).

(server@localhost) > value "http://www.google.com" with google stored
(server@localhost) > loop

(client@localhost) > rpc:call('server@localhost',kvs,lookup,[google]).
call lookup
rpc
{ok,"http://www.google.com"}

(server@localhost) > get the value of key: google
(server@localhost) > loop

(server@localhost)2> kvs:lookup(google).
call lookup
rpc
get the value of key: google
loop
{ok,"http://www.google.com"}

Eshell V5.8  (abort with ^G)
% 最长单个匹配
regexp:match("linux,windows,erlang,php,mysql", "[a-z]+").
{match,7,7}

% 首个匹配
regexp:first_match("linux,erlang,mysql,mnesia", "[a-z]+").
{match,1,5}

% 匹配,并获取linux子串
1> {M,L} = regexp:matches("linux,erlang,mysql,mnesia", "[a-z]+"),
1> {Start, Length} = lists:nth(1, L),
1> Substring = string:substr("linux,erlang,mysql,mnesia",Start,Length),
1> io:format("The first substring is ~p~n", [Substring]).
The first substring is "linux"
ok

% 替换
regexp:sub("webmaster@gmail.com", "@[a-z\.]+", "@163.com").
{ok,"webmaster@163.com",1}

% 全局替换
regexp:gsub("webmaster@gmail.com,admin@gmail.com", "@[a-z\.]+", "@163.com").
{ok,"webmaster@163.com,admin@163.com",2}

% 切分
regexp:split("webmaster@gmail.com admin@gmail.com", "\s").
{ok,["webmaster@gmail.com","admin@gmail.com"]}

% 解析(编译)一次正则表达式,使之能够到处重用,类似Python的re.compile
7> RE = regexp:parse("[a-z]+").
{ok,{pclosure,{char_class,[{97,122}]}}}

debian:~/erlang# hg clone https://bitbucket.org/basho/rebar
debian:~/erlang# cd rebar
debian:~/erlang# ./bootstrap

-ifdef(TEST).
-include_lib("eunit/include/eunit.hrl").
-endif.

-ifdef(TEST).
simple_test() ->
    ok = application:start(myapp),
    ?assertNot(undefined == whereis(myapp_sup)).
-endif.

debian:~/erlang/rebar/myapp# ./rebat compile eunit

debian:~/erlang/rebar/myapp# ./rebar compile eunit
==> myapp (compile)
==> myapp (eunit)
  Test passed.
Cover analysis: /var/root/erlang/rebar/myapp/.eunit/index.html

{cover_enabled, true}.

debian:~/erlang/rebar/myapp# ./rebar clean
debian:~/erlang/rebar/myapp# ./rebar compile eunit
==> myapp (compile)
==> myapp (eunit)
  Test passed.
Cover analysis: /var/root/erlang/rebar/myapp/.eunit/index.html

git clone git://github.com/ahmednawras/log4erl.git log4erl

make:all([{outdir, "../ebin"}]).

erl -pz /path/to/log4erl

application:start(log4erl).

log4erl:conf("priv/log4erl.conf").

log4erl:add_logger(messages_log).
log4erl:add_console_appender(messages_log, cmd_logs, {warn, "[%L] %l%n"}).

log4erl:info("Information message").

logger [<name>] {
       ...
}

%% default logger
logger {
       ...
}

%% Default logger
%% it includes a file appender and a console appender
logger{
	file_appender app2{
		dir = ".",
		level = info,
		file = my_app,
		type = size,
		max = 100000,
		suffix = log,
		rotation = 5,
		format = '[%L] %I %l%n'
	}
	console_appender app1{
		level = warn,
		format = '%T %j [%L] %l%n'
	}
}

<appender_type> <name> {
	...
}

level   = <Level>     => 日志级别 (例如: warn)
format  = <F>		  => 输出格式 (查看 'Appenders.txt')

dir         => 输出路径 (例如: /var/log/my_app)
file        => 日志文件名称 (例如: my_app_log)
type        => size,time. 当前仅实现了基于size的日志滚动
max         => 每次日志滚动的最大文件大小
suffix      => 日志文件后缀 (例如: log)
rotation    => 循环滚动次数,例如为5, 当滚动到第五个日志文件并且日志文件达到指定size的时候就会覆盖前面的日志文件,依次循环

ip          => SMTP服务器IP地址
port        => SMTP服务器端口
no_auth
username    => 用户名
password    => 密码
from        => 寄信人地址
to          => 收信人地址
tilte       => 邮件标题
msg         => 邮件内容

facility => Facility (例如: ftp)
host => 发送syslog消息的目标主机 [可选]
port => syslog 端口[可选]