Erlang与C构建的节点通讯

最新推荐文章于 2023-05-29 21:07:27 发布
最新推荐文章于 2023-05-29 21:07:27 发布
阅读量418 收藏
点赞数
分类专栏： Erlang

Erlang与C构建的节点通讯

 
原文  http://blog.csdn.net/mycwq/article/details/40836273

Erlang节点之间的通讯，主要用于两个Erlang节点之间的通讯，但Erlang还支持与java构建的节点通讯，甚至与c构建的节点通讯，前面两种方式在我以前的文章都有讲到，所以这里讲Erlang与c构建的节点通讯。

想用C构建一个erlang节点，要利用Erlang的erl_interface接口来实现。c建立的节点，叫CNode ，其中，erl_interface除了实现一些基本的节点连接，消息发送接收，还实现Erlang Term 的构建解析。

CNode是除了nif之外的另一种c扩展erlang方式，但对比nif来说这种方式不会引起erlang的crash，因为他们在不同的进程上，底层通过socket通讯。

另外一个问题，CNode在erlang集群中节点是隐藏的，所以在erlang中用nodes()无法找到CNode，但节点连接成功后可以通过nodes(connected)获取到。

下面讲述如何在Windows下使用CNode与Erlang通讯（demo下载）

一、前期准备

1、下载erlang二进制安装包，这里以 R16B02 为例。

2、安装erlang后，到安装目录取erlang头文件和静态库包：

erl头文件：erl5.10.3\lib\erl_interface-3.7.14\include\

erl静态库：erl5.10.3\lib\erl_interface-3.7.14\lib，静态库这里只用到ei_md.lib和erl_interface_md.lib

二、新建c项目

1、新建一个空项目，命名为cnode

2、把include文件夹和lib文件夹复制到工程目录下

3、修改项目属性，字符集选使用 Unicode 字符集

4、修改项目属性，VC++ 目录的包含目录添加“include”，库添加“lib”

5、工程新增文件cnode.c，保存以下代码：

#include <stdio.h>
#include <sys/types.h>

#ifdef _WIN32  
#   define __WIN32__
#   include <WinSock2.h>  
#	pragma comment(lib, "ws2_32.lib")
#	pragma comment(lib, "ei_md.lib")
#	pragma comment(lib, "erl_interface_md.lib")
#	pragma comment(linker, "/NODEFAULTLIB:MSVCRTD.LIB")
#endif 

#include "erl_interface.h"
#include "ei.h"

#define BUFSIZE 1000
#define PORT 8088

int foo(int x) {
  return x+1;
}

int bar(int y) {
  return y*2;
}

int main(int argc, char **argv) {
  struct in_addr addr;                     /* 32-bit IP number of host */
  int port;                                /* Listen port number */
  int listen;                              /* Listen socket */
  int fd;                                  /* fd to Erlang node */
  ErlConnect conn;                         /* Connection data */

  int loop = 1;                            /* Loop flag */
  int got;                                 /* Result of receive */
  unsigned char buf[BUFSIZE];              /* Buffer for incoming message */
  ErlMessage emsg;                         /* Incoming message */

  ETERM *fromp, *tuplep, *fnp, *argp, *resp;
  int res;

#ifdef _WIN32  
  //初始化winsock服务  
  WSADATA wsaData;  
  WSAStartup(MAKEWORD(2,2), &wsaData);  
#endif 

  port = PORT;

  erl_init(NULL, 0);

  addr.s_addr = inet_addr("127.0.0.1");
  if (erl_connect_xinit("idril", "cnode", "cnode@127.0.0.1",
    &addr, "secretcookie", 0) == -1)
    erl_err_quit("erl_connect_xinit");

  /* Make a listen socket */
  if ((listen = my_listen(port)) <= 0)
    erl_err_quit("my_listen");

  if (erl_publish(port) == -1)
    erl_err_quit("erl_publish");

  if ((fd = erl_accept(listen, &conn)) == ERL_ERROR)
    erl_err_quit("erl_accept");
  fprintf(stderr, "Connected to %s\n\r", conn.nodename);

  while (loop) {

    got = erl_receive_msg(fd, buf, BUFSIZE, &emsg);
    if (got == ERL_TICK) {
      /* ignore */
    } else if (got == ERL_ERROR) {
      loop = 0;
    } else {

      if (emsg.type == ERL_REG_SEND) {
        fromp = erl_element(2, emsg.msg);
        tuplep = erl_element(3, emsg.msg);
        fnp = erl_element(1, tuplep);
        argp = erl_element(2, tuplep);

        if (strncmp(ERL_ATOM_PTR(fnp), "foo", 3) == 0) {
          res = foo(ERL_INT_VALUE(argp));
        } else if (strncmp(ERL_ATOM_PTR(fnp), "bar", 3) == 0) {
          res = bar(ERL_INT_VALUE(argp));
        }

        resp = erl_format("{cnode, ~i}", res);
        erl_send(fd, fromp, resp);

        erl_free_term(emsg.from); erl_free_term(emsg.msg);
        erl_free_term(fromp); erl_free_term(tuplep);
        erl_free_term(fnp); erl_free_term(argp);
        erl_free_term(resp);
      }
    }
  }
}


int my_listen(int port) {
  int listen_fd;
  struct sockaddr_in addr;
  int on = 1;

  if ((listen_fd = socket(AF_INET, SOCK_STREAM, 0)) < 0)
    return (-1);

  setsockopt(listen_fd, SOL_SOCKET, SO_REUSEADDR, &on, sizeof(on));

  memset((void*) &addr, 0, (size_t) sizeof(addr));
  addr.sin_family = AF_INET;
  addr.sin_port = htons(port);
  addr.sin_addr.s_addr = htonl(INADDR_ANY);

  if (bind(listen_fd, (struct sockaddr*) &addr, sizeof(addr)) < 0)
    return (-1);

  listen(listen_fd, 5);
  return listen_fd;
}

编译项目后，会生成cnode.exe的程序。这里要先启动erlang epmd服务，再跑这个程序。原因是erlang节点之间的通讯要依赖一个底层的端口映射服务epmd，这个模块的主要功能是提供通过相互通过name来识别机器的机制。

7、启动erlang epmd服务

可以先在本机启动一个erlang节点，erlang会自动起这个epmd服务。demo中也带了这个程序epmd.exe，手动执行即可

C:\>erl -name e1@127.0.0.1 -setcookie secretcookie 
Eshell V5.10.3 (abort with ^G) 
(e1@127.0.0.1)1> net_kernel:connect('cnode@127.0.0.1'). 
true 
(e1@127.0.0.1)2> {any, 'cnode@127.0.0.1'} ! {call, self(), {bar, 3}}. 
{call,<0.36.0>,{bar,3}} 
(e1@127.0.0.1)3> flush(). 
Shell got {cnode,6} 
ok 
(e1@127.0.0.1)4> {any, 'cnode@127.0.0.1'} ! {call, self(), {foo, 3}}. 
{call,<0.36.0>,{foo,3}} 
(e1@127.0.0.1)5> flush(). 
Shell got {cnode,4} 
ok

完整demo下载： http://download.csdn.net/detail/cwqcwk1/8126053

之前写过nif的例子，有网友表示demo无法跑起来，这里总结其中的情况：

1、demo的erlang版本是R16B02，必须使用这个版本的erlang，否则会有问题。 下载页

2、我的编译器是vs2010，必须安装有vs2010以上的编译器。如果没有安装，只是想运行这个demo需要安装 vc2010运行库

3、epmd服务未启动，demo中自带了epmd.exe，双击即可。或者先在本机启动一个erlang节点，erlang会自动起这个服务。‘

4、其他erlang节点之间无法通讯的原因，还有cookie、名字问题，参考这篇文章

上面讲的是CNode做服务端节点的例子，下面也贴下CNode做客户端节点的代码：

int main(int argc, char **argv) {
  int fd;                                  /* fd to Erlang node */

  int loop = 1;                            /* Loop flag */
  int got;                                 /* Result of receive */
  unsigned char buf[BUFSIZE];              /* Buffer for incoming message */
  ErlMessage emsg;                         /* Incoming message */

  ETERM *fromp, *tuplep, *fnp, *argp, *resp;
  int res;
  
  erl_init(NULL, 0);

  if (erl_connect_init(1, "secretcookie", 0) == -1)
    erl_err_quit("erl_connect_init");

  if ((fd = erl_connect("e1@idril")) < 0)
    erl_err_quit("erl_connect");
  fprintf(stderr, "Connected to ei@idril\n\r");

  while (loop) {

    got = erl_receive_msg(fd, buf, BUFSIZE, &emsg);
    if (got == ERL_TICK) {
    /* ignore */
    } else if (got == ERL_ERROR) {
      loop = 0;
    } else {

      if (emsg.type == ERL_REG_SEND) {
        fromp = erl_element(2, emsg.msg);
        tuplep = erl_element(3, emsg.msg);
        fnp = erl_element(1, tuplep);
        argp = erl_element(2, tuplep);

        if (strncmp(ERL_ATOM_PTR(fnp), "foo", 3) == 0) {
          res = foo(ERL_INT_VALUE(argp));
        } else if (strncmp(ERL_ATOM_PTR(fnp), "bar", 3) == 0) {
          res = bar(ERL_INT_VALUE(argp));
        }

        resp = erl_format("{cnode, ~i}", res);
        erl_send(fd, fromp, resp);

        erl_free_term(emsg.from); erl_free_term(emsg.msg);
        erl_free_term(fromp); erl_free_term(tuplep);
        erl_free_term(fnp); erl_free_term(argp);
        erl_free_term(resp);
      }
    }
  }
}

代码就参照上面的方法编译了


ufocode
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
erlang节点通信
qq_20656489的博客
03-13 630
Eerlang l与节点互连,断开,监控 之前记录过 [Erlang 0005] net_kernel:monitor_nodes 订阅node连接\断开消息 , 魔鬼在于细节(Devils are in the details),这个模块还是有一些细节要注意,特别是官方文档上语焉不详的问题.先从net_kernel的几个小功能开始: net_kernel小功能 如果erlang vm启动的时...
erlang节点通讯例子及问题分析
ve12345的博客
10-22 589
分布式是erlang的三大特性之一，都说erlang分布式，最简单最直接的应用就是节点通讯。 问题来了，怎么节点通讯，节点连接可能很多人知道，如何在两个节点连接后进行本地与远程通信？这就是本篇所讲的内容。 下面是示例代码，完成2个节点的通讯： A节点的代码： -module(server_demo). -export([start/0, rpc_call/2]). start() -&g...
erlang局域网内通信
weixin_30672295的博客
06-17 142
原文：http://blog.chinaunix.net/uid-22566367-id-382011.html 在Programming Erlang这本书中，在写到第十章中，主要实现的是不同节点之间的通信，书上列出了四步，其中的第一步很容易实现，依葫芦画瓢，很容易实现同一台机子上，不同节点之间的通信，运行结果和书上的完全一致。当你急切地去尝试第二步（在局域网内，不同机子之间的通信）时，你可能...
erlang在windows下和虚拟机节点通信
ve12345的博客
05-11 162
在Linux下部署erlang项目，开发过程很多都是在Windows完成的，然后再发布到Linux，所以测试过程要在虚拟机下完成。有一天因为想要在虚拟机中使用到erlang图形化工具，比如appmon、tv、observer等等，便突发奇想得利用Windows的erlang连接到虚拟机中使用这些工具，来查看虚拟机的运行状态。 需要准备哪些东西？ 我是在VmWare10虚拟Centos6.5系统...
Erlang与C构建的节点通讯完整例子
11-06
Windows下Erlang与C构建的节点通讯完整例子，包含cnode工程项目，erlang引用例子。 配套文章：http://blog.csdn.net/mycwq/article/details/40836273
php实现与erlang的二进制通讯实例解析
10-25
主要介绍了php实现与erlang的二进制通讯实例解析,需要的朋友可以参考下
Erlang分布式节点中的注册进程使用实例
09-22
主要介绍了Erlang分布式节点中的注册进程使用实例,本文直接给出实例代码,需要的朋友可以参考下
ansible-nodetool：Ansible模块，用于通过Erlang RPC与Erlang节点进行交互
01-31
1. **节点交互**：`ansible-nodetool` 提供了与远程 Erlang 节点交互的能力，这意味着你可以执行一系列操作，如检查节点状态、启动或停止服务、更新配置、收集日志等，而无需直接登录到服务器。 2. **命令执行**：...
erlang节点通讯
qq_44865780的博客
06-20 364
参照Erlang程序设计（第2版）174页 第2阶段：客户端在一个节点，服务器在相同主机的另一个节点 服务器代码 kvs.erl -module(kvs). -export([start/0, store/2, lookup/1]). start() -> register(kvs, spawn(fun() -> loop() end)). store(Key, Value) -> rpc({store, Key, Value}). lookup(Key) -&
【Erlang】节点互联
Zhuang_lu_ren的博客
03-05 549
erlang节点互联
erlang节点通信小测试
程序猿写文章
10-12 1364
1.目标：
erlang节点互联
ownhome的专栏
10-30 1011
前提：erlang节点的连通是传递性的，即A节点连通B节点，若B节点之前已经连通C节点，那A也会连通C；节点间的通讯其实就是tcp连接，所以能少则少，erlang有提供 -connect_all false 启动参数，这样A连通B时就不会跟着连通C问题：假设有三组节点，唯一中央节点C；云节点组Y1,Y2…YN；普通节点组N1,N2…NN； 云节点组跟普通节点组都跟C连通，怎么让云节点组跟普通节点组
erlang节点连接与通信
lewiskyo的专栏
05-03 1175
参考资料: https://www.cnblogs.com/me-sa/archive/2011/07/12/erlang0005.html part1: 节点连接 Erlang节点之间建立连接，可以使用net_adm:ping()，参数填写指定节点名字，连接成功返回pong，失败返回pang。 part2: 订阅节点连接 使用net_adm:ping()可以连接上指定节点,但实践中我们不仅仅是要...
erlang otp节点间通信
程序猿写文章
10-13 1295
1.目标：         开启两个节点使得A节点操作B节点的进程
linux虚拟设备节点,erlang在windows下和虚拟机节点通信
weixin_35545135的博客
05-07 322
在Linux下部署erlang项目，开发过程很多都是在Windows完成的，然后再发布到Linux，所以测试过程要在虚拟机下完成。有一天因为想要在虚拟机中使用到erlang图形化工具，比如appmon、tv、observer等等，便突发奇想得利用Windows的erlang连接到虚拟机中使用这些工具，来查看虚拟机的运行状态。需要准备哪些东西？我是在VmWare10虚拟Centos6.5系统，所以这...
设置Erlang节点的监听端口范围
'ErlangEye' -> "❤ Erlang Every Day"
07-05 463
是个Undocument的Flags，记录一下： erl -name foo@192.168.0.2 -kernel inet_dist_listen_min 8080 -kernel inet_dist_listen_max 8090 这样该节点在epmd中注册和监听的端口就会在8080-8090间，方便在防火墙中设置规则...
Linux— 网络编程套接字
最新发布
一个努力拼搏的人
05-29 1550
我们知道IP地址可以标识主机唯一性，但是每一台主机上的客户或服务进程的唯一性用什么来标识呢？为了更好的标识一台主机上服务进程的唯一性，采用标识服务器进程，客户端进程的唯一性。端口号(port)是传输层协议的内容.端口号是一个2字节16位的整数;端口号用来标识一个进程, 告诉操作系统, 当前的这个数据要交给哪一个进程来处理;IP地址 + 端口号能够标识网络上的某一台主机的某一个进程;
使用Erlang构建Web应用实战
本书《Building Web Applications with Erlang》由Zachary Kessin撰写，旨在教授读者如何使用Erlang编程语言构建Web应用程序。Erlang是一种强大的、并发性极强的编程语言，尤其适合构建高可用性和可扩展性的分布式...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值