[Erlang]erlang与php的通信
2015-06-03 12:21
676 查看
网络通讯常用的有2种:文本通讯和二进制通讯。php与erlang之间文本通讯比较简单,这里不做讨论,主要讨论php与erlang实现二进制通讯。
通讯示例erlang端代码:[plain] view plaincopy-module(server).
-export([start/0]).
-define( UINT, 32/unsigned-little-integer).
-define( INT, 32/signed-little-integer).
-define( USHORT, 16/unsigned-little-integer).
-define( SHORT, 16/signed-little-integer).
-define( UBYTE, 8/unsigned-little-integer).
-define( BYTE, 8/signed-little-integer).
-define( PORT, 5678).
%% 启动服务并接受客户端的连接
start() ->
{ok, LSock} = gen_tcp:listen(?PORT, [binary, {packet, 0},{active, false}]),
io:format("socket listen: ~p on ~p ~n",[LSock, ?PORT]),
accept(LSock).
accept(LSock) ->
{ok, ASock} = gen_tcp:accept(LSock),
spawn(fun() -> server_loop(ASock) end),
accept(LSock).
server_loop(ASock) ->
case gen_tcp:recv(ASock, 0) of
{ok, <<Len:?USHORT,Cmd:?USHORT,Contain:4/binary-unit:8>> = A} ->
io:format("recv data: ~p ~p ~p~n", [Len, Cmd, Contain]),
%%将接收到数据发送回客户端
gen_tcp:send(ASock, A),
server_loop(ASock);
{ok, Data} ->
io:format("recv unformated data: ~p~n", [Data]),
server_loop(ASock);
{error, _} ->
{ok, recv_error}
end.
php端代码:[php] view plaincopy<?php
$timeout = 3;
//超时时间:3秒
$fp = fsockopen("tcp://127.0.0.1", 5678, $errno, $errstr, $timeout/* 连接超时时间 */);
if (!$fp) {
echo "$errstr ($errno)<br />\n";
} else {
stream_set_timeout($fp, $timeout);
//远程数据接收或发送超时时间
$format = "vva4";
$data = pack($format, 4, 10001, "abcd");
//$data 按照一定格式被打包成二进制数据
fwrite($fp, $data);
if (!feof($fp)) {
$rs = fread($fp, 1024);
//读取远程数据
if ($rs) {
$len = strlen($rs);
//$len 可以获取数据的长度,用以计算content的长度
//在这个例子中,content 的长度为 4
$format = "vlen/vcmd/a4content";
$data = unpack($format, $rs);
print_r($data);
} else {
echo "timeout!";
}
} else {
echo "timeout!";
}
fclose($fp);
}
?>
正常情况下php端会显示以下内容:[plain] view plaincopyArray ( [len] => 4 [cmd] => 10001 [content] => abcd )
通讯说明这里用到的是php的pack函数和unpack函数pack函数:将数据按照一定格式打包成二进制数据,生成的数据接近C/C++的结构体数据(C/C++字符串带结束符)。unpack函数:与pack相反,对二进制数据进行解包。而erlang端,直接用位语法来匹配二进制数据即可
通讯示例erlang端代码:[plain] view plaincopy-module(server).
-export([start/0]).
-define( UINT, 32/unsigned-little-integer).
-define( INT, 32/signed-little-integer).
-define( USHORT, 16/unsigned-little-integer).
-define( SHORT, 16/signed-little-integer).
-define( UBYTE, 8/unsigned-little-integer).
-define( BYTE, 8/signed-little-integer).
-define( PORT, 5678).
%% 启动服务并接受客户端的连接
start() ->
{ok, LSock} = gen_tcp:listen(?PORT, [binary, {packet, 0},{active, false}]),
io:format("socket listen: ~p on ~p ~n",[LSock, ?PORT]),
accept(LSock).
accept(LSock) ->
{ok, ASock} = gen_tcp:accept(LSock),
spawn(fun() -> server_loop(ASock) end),
accept(LSock).
server_loop(ASock) ->
case gen_tcp:recv(ASock, 0) of
{ok, <<Len:?USHORT,Cmd:?USHORT,Contain:4/binary-unit:8>> = A} ->
io:format("recv data: ~p ~p ~p~n", [Len, Cmd, Contain]),
%%将接收到数据发送回客户端
gen_tcp:send(ASock, A),
server_loop(ASock);
{ok, Data} ->
io:format("recv unformated data: ~p~n", [Data]),
server_loop(ASock);
{error, _} ->
{ok, recv_error}
end.
php端代码:[php] view plaincopy<?php
$timeout = 3;
//超时时间:3秒
$fp = fsockopen("tcp://127.0.0.1", 5678, $errno, $errstr, $timeout/* 连接超时时间 */);
if (!$fp) {
echo "$errstr ($errno)<br />\n";
} else {
stream_set_timeout($fp, $timeout);
//远程数据接收或发送超时时间
$format = "vva4";
$data = pack($format, 4, 10001, "abcd");
//$data 按照一定格式被打包成二进制数据
fwrite($fp, $data);
if (!feof($fp)) {
$rs = fread($fp, 1024);
//读取远程数据
if ($rs) {
$len = strlen($rs);
//$len 可以获取数据的长度,用以计算content的长度
//在这个例子中,content 的长度为 4
$format = "vlen/vcmd/a4content";
$data = unpack($format, $rs);
print_r($data);
} else {
echo "timeout!";
}
} else {
echo "timeout!";
}
fclose($fp);
}
?>
正常情况下php端会显示以下内容:[plain] view plaincopyArray ( [len] => 4 [cmd] => 10001 [content] => abcd )
通讯说明这里用到的是php的pack函数和unpack函数pack函数:将数据按照一定格式打包成二进制数据,生成的数据接近C/C++的结构体数据(C/C++字符串带结束符)。unpack函数:与pack相反,对二进制数据进行解包。而erlang端,直接用位语法来匹配二进制数据即可
相关文章推荐
- Erlang项目内存泄漏分析方法
- Erlang实现的一个Web服务器代码实例
- Erlang并发编程介绍
- Erlang的一些编程技巧分享
- Erlang程序设计(第2版)读书笔记:Erlang安装和基础语法
- Erlang中的模块与模式匹配介绍
- Erlang中的函数与流程控制介绍
- Erlang语法学习笔记:变量、原子、元组、列表、字符串
- Erlang中的Record详解
- Erlang初学:Erlang的一些特点和个人理解总结
- Erlang中的OTP简介
- Erlang中遍历取出某个位置的最大值代码
- Erlang中3种生成随机数的方法
- Erlang中的并发程序简介
- Erlang分布式节点中的注册进程使用实例
- Erlang中的注册进程使用实例
- Erlang中的映射组Map详细介绍
- CentOS 6.5源码安装Erlang教程
- Erlang的运算符(比较运算符,数值运算符,移位运算符,逻辑运算符)
- Erlang实现的百度云推送Android服务端实例