周末2天，一天写了个php_cerl模块，完成cerl的php client，一天写了个pycerl模块，完成cerl的python client。呵呵，C++的server可以用php或者python来调用了。

对于我们之前用CERL写的HashServer这个服务器（一个很简单的样例，代码参阅：Erlang vs. CERL - CERL简介），其PHP写的Client样例如下：

view plaincopy to clipboardprint?
<?php
define('HashSever_put', 1);
define('HashSever_get', 2);

if (!extension_loaded('php_cerl')) {
if (!dl('php_cerl.' . PHP_SHLIB_SUFFIX))
die("ERROR: Cannot load php_cerl library!\n");
}

cerl_thread_init();

$server = cerl_connect('localhost:8889', 'HashServer');
if (!$server)
die("ERROR: Connect HashSever failed!\n");

printf(
"+-----------------------------------------------------------\n" .
"| put <key> <value> - Put (key, value)\n" .
"| get <key> - Get value of a key\n" .
"| q - Quit\n" .
"+-----------------------------------------------------------\n");

for (;;)
{
echo "\n> ";
list($cmd, $key, $value) = fscanf(STDIN, '%s%d%d');
if ($cmd == 'get' || $cmd == 'g')
{
$ret = $server->call(HashSever_get, $key);
if ($ret[0] == code_ok)
echo "result: $ret[1]\n";
else
echo "error: $ret[0]\n";
}
else if ($cmd == 'put' || $cmd == 'p')
{
$ret = $server->call(HashSever_put, $key, $value);
if ($ret[0] == code_ok)
echo "ok!\n";
else
echo "error: $ret[0]\n";
}
else if ($cmd == 'q')
{
break;
}
else
{
echo "unknown command!\n";
}
}

cerl_thread_term();
?>
<?php
define('HashSever_put', 1);
define('HashSever_get', 2);

if (!extension_loaded('php_cerl')) {
if (!dl('php_cerl.' . PHP_SHLIB_SUFFIX))
die("ERROR: Cannot load php_cerl library!\n");
}

cerl_thread_init();

$server = cerl_connect('localhost:8889', 'HashServer');
if (!$server)
die("ERROR: Connect HashSever failed!\n");

printf(
"+-----------------------------------------------------------\n" .
"| put <key> <value> - Put (key, value)\n" .
"| get <key> - Get value of a key\n" .
"| q - Quit\n" .
"+-----------------------------------------------------------\n");

for (;;)
{
echo "\n> ";
list($cmd, $key, $value) = fscanf(STDIN, '%s%d%d');
if ($cmd == 'get' || $cmd == 'g')
{
$ret = $server->call(HashSever_get, $key);
if ($ret[0] == code_ok)
echo "result: $ret[1]\n";
else
echo "error: $ret[0]\n";
}
else if ($cmd == 'put' || $cmd == 'p')
{
$ret = $server->call(HashSever_put, $key, $value);
if ($ret[0] == code_ok)
echo "ok!\n";
else
echo "error: $ret[0]\n";
}
else if ($cmd == 'q')
{
break;
}
else
{
echo "unknown command!\n";
}
}

cerl_thread_term();
?>

而Python写的Client样例如下：

view plaincopy to clipboardprint?
HashSever_put = 1
HashSever_get = 2

import sys, pycerl

pycerl.thread_init()

server = pycerl.connect("localhost:8889", "HashServer")
if not server:
print "ERROR: Connect HashSever failed!"