erlang,ejabberd,如何处理[{text,<<<>>,<<" hello">>}}格式

时间:2017-02-03 16:31:20

标签: erlang ejabberd

所以我的代码中有一个钩子,表示如果收到离线消息,它将启动此功能。

offline_msg_received(From, To, Packet) ->

数据包的代码如下:

{message,<<"purple2d957668">>,chat,<<>>,undefined,{jid,<<"admin">>,<<"localhost">>,<<"5280">>,<<"admin">>,<<"localhost">>,<<"5280">>},[],[{text,<<>>,<<"Hello">>}],undefined,[{xmlel,<<"active">>,[{<<"xmlns">>,<<"http://jabber.org/protocol/chatstates">>}],[]}],#{}}

我想要的是包含我的信息的部分。这是:

[{text,<<>>,<<"Hello">>}]

我可以使用与整个包变量匹配的模式来获取此部分。但是,当我尝试与我的消息匹配的模式时,它说错误的论点。我知道如果我只用

指定一个变量
{text,<<>>,<<"Hello">>}

然后我可以模仿匹配。根据我的理解,看到周围的东西意味着它是一个列表或一个字符串。

我可以在这里展示一些代码。

{P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11} = Packet, %% P8 is the message I want.
?INFO_MSG("----------------------P8:  ~p~n", P8), %% This shows   {text,<<>>,<<"Hello">>}
{A, B, C} = P8,  %% This gives me a badmatch error.

现在,如果我在代码shell中手动执行此操作:

{text,<<>>,<<"Hello">>} = P8,
{A, B, C} = P8,

然后代码工作,并将&lt;&lt;&lt;&#;&#34; Hello&#34;&gt;&gt;在C变量中。

我的猜测是&#34;包&#34;中的[]。变量与我的badmatch错误有关,但由于某些原因,当我打印出P8时,这些符号不会出现。有没有人有一个很好的建议,为什么它不起作用?我猜它与隐藏[]有关,因为否则它看起来与我的shell代码测试相同。

感谢。这是我第一次在这里提问,所以我希望我没有做错任何事。

1 个答案:

答案 0 :(得分:3)

您在INFO_MSG来电中看不到方括号的原因是INFO_MSG需要列表值,而不仅仅是单个值。在上面的代码中它碰巧运行,因为格式字符串只包含一个指令,并且值是一个元素的列表,所以这就是为什么括号被静默剥离。

INFO_MSG宏与io:format的工作方式相同,因此您可以在shell中尝试此操作:

%% two arguments
io:format("~p ~p\n", [foo, bar]).
%% one argument - we still need square brackets
io:format("~p\n", [foo]).

你这样做很难:) messagetextxmpp_codec.hrl中定义的记录。如果您没有在shell中加载记录定义,则记录看起来像具有大量元素的元组,但是如果您加载记录定义,则您的消息将显示为:

1> rr("include/xmpp_codec.hrl").
[address,addresses,adhoc_actions,adhoc_command,adhoc_note,
 bind,block,block_list,bob_data,bookmark_conference,
 bookmark_storage,bookmark_url,bytestreams,caps,
 carbons_disable,carbons_enable,carbons_private,
 carbons_received,carbons_sent,chatstate,client_id,compress,
 compress_failure,compressed,compression,csi,db_feature,
 db_result,db_verify|...]
2> {message,<<"purple2d957668">>,chat,<<>>,undefined,{jid,<<"admin">>,<<"localhost">>,<<"5280">>,<<"admin">>,<<"localhost">>,<<"5280">>},[],[{text,<<>>,<<"Hello">>}],undefined,[{xmlel,<<"active">>,[{<<"xmlns">>,<<"http://jabber.org/protocol/chatstates">>}],[]}],#{}}. 
#message{id = <<"purple2d957668">>,type = chat,lang = <<>>,
         from = undefined,
         to = {jid,<<"admin">>,<<"localhost">>,<<"5280">>,
                   <<"admin">>,<<"localhost">>,<<"5280">>},
         subject = [],
         body = [#text{lang = <<>>,data = <<"Hello">>}],
         thread = undefined,
         sub_els = [{xmlel,<<"active">>,
                           [{<<"xmlns">>,
                             <<"http://jabber.org/protocol/chatstates">>}],
                           []}],
         meta = #{}}

您要查找的数据位于body字段中。

让我们将此记录分配给变量M并提取正文字段:

4> Body = M#message.body.
[#text{lang = <<>>,data = <<"Hello">>}]

这是一个包含一条text记录的列表。让我们从中提取data字段:

6> [#text{data = Data}] = Body.
[#text{lang = <<>>,data = <<"Hello">>}]
7> Data.
<<"Hello">>

它在shell中的工作方式 - 使用rr函数加载记录定义。编写使用记录定义的模块时,您需要包含hrl文件:

-include_lib("xmpp/include/xmpp_codec.hrl").

-include_lib目录将在加载路径上查找xmpp应用程序,并在其xmpp_codec.hrl目录中搜索文件include。您可能需要指定编译器的代码路径,例如erlc -pa path/to/xmpp/ebin my_module.erl - 请注意应用程序内的ebin目录应位于代码路径上。