首頁 > php教程 > php手册 > php 实现与 erlang 网络通讯

php 实现与 erlang 网络通讯

WBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWB
發布: 2016-06-06 19:54:00
原創
1363 人瀏覽過

网络通讯常用的有2种:文本通讯和二进制通讯。php与erlang之间文本通讯比较简单,这里不做讨论,主要讨论php与erlang实现二进制通讯。 通讯示例 erlang端代码: -module(server).-export([start/0]).-define( UINT, 32/unsigned-little-integer).-define( IN

网络通讯常用的有2种:文本通讯和二进制通讯。php与erlang之间文本通讯比较简单,这里不做讨论,主要讨论php与erlang实现二进制通讯。

通讯示例

erlang端代码:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

-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, > = 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端代码:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

<?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端会显示以下内容:

1

Array ( [len] => 4 [cmd] => 10001 [content] => abcd )

登入後複製

通讯说明

这里用到的是php的pack函数和unpack函数

pack函数:将数据按照一定格式打包成二进制数据,生成的数据接近C/C++的结构体数据(C/C++字符串带结束符)。

unpack函数:与pack相反,对二进制数据进行解包。

而erlang端,直接用位语法来匹配二进制数据即可


相關標籤:
本網站聲明
本文內容由網友自願投稿,版權歸原作者所有。本站不承擔相應的法律責任。如發現涉嫌抄襲或侵權的內容,請聯絡admin@php.cn
最新問題
怎麼學好php
來自於 1970-01-01 08:00:00
0
0
0
PHP擴充intl
來自於 1970-01-01 08:00:00
0
0
0
php數據獲取?
來自於 1970-01-01 08:00:00
0
0
0
熱門推薦
熱門教學
更多>
最新下載
更多>
網站特效
網站源碼
網站素材
前端模板