Erlang边读边练（1）

最新推荐文章于 2025-12-03 13:34:45 发布
最新推荐文章于 2025-12-03 13:34:45 发布 · 186 阅读 · 0
文章标签：

#Erlang #Windows

本文分享了使用Erlang编程语言及图形界面库gs开发IRC客户端GUI的过程，作者逐步实现了窗口创建、组件布局、文本输入与显示等功能。

我看书有个习惯，先看图和代码，然后代码中不懂的再去前后文去找说明，有人说这太浪费时间了，我觉得这样才0距离接触代码。Armstrong的代码看得我十分的不爽，可是，学erlang就是像受戒律一样，忍啊忍，悟啊悟，之后，如修炼得道般豁然开朗。

ok，废话少说，读programming erlang 读到 IRC Lite的时候发现在自己面前横着一道槛了。io_widget是什么？lib_chan是什么？mm是什么？太多东西复杂东西了呢。我下载来老头子的源代码，编译运行一下，看了下前面的说明，知道人与这个IRCLite交互的界面大概是什么样子的了，模仿着老头的代码边读练习写IRC Lite，看下我们的需求列表(我喜欢做一点事然后喘口气，把事情分成一小段一小段来做，完成一个小段，奖励下自己，比如喝口茶，需求列表也是我的备忘录，指导我下一步该做什么，它是不断变化，动态增长的一张表)：

 

  • 一个500×200的窗口
  • 在这个窗口里面放入一个frame的布局2行1列，上面的作为历史记录显示框，下面的输入框
  • 历史记录框是一个editor
  • 输入框是一个entry
  • 输入框有一个提示符

 

%%在io_widget应该封装好gs，所以应该这么写，

start(Pid)->

io_widget_init().

 

io_widget_init()->

GS = gs:start(),

Size = [{width,500,{height,200}],

Win = gs:window(Gs,

     [{map,true},

      {configure,true},

      {title,"chat windows"}|Size]),

State=nil,

loop(Win,state).

 

loop(Win,State)->

receive

after 5000->

true

end.

 

编译运行一下


恩不错，顺心的开始是成功的一半。

 

再来看下我们的需求列表：

 

  • 在这个窗口里面放入一个frame的布局2行1列，上面的作为历史记录显示框，下面的输入框
  • 历史记录框是一个editor
  • 输入框是一个entry
  • 输入框有一个提示符

io_widget_init()->

GS = gs:start(),

Size = [{width,500,{height,200}],

Win = gs:window(Gs,

     [{map,true},

      {configure,true},

      {title,"chat windows"}|Size]),

gs:config(IdOrName, Option). 

%%Frame options:
%%{packer_x,PackList} where PackList is list() of PackOption, and
%%{packer_y,PackList} where PackList is list() of PackOption.

%%PackOption is:
%%{stretch, Weight} where Weight is integer() > 0, or
%%{stretch, Weight, MinPixelSize, or}
%%{stretch, Weight, MinPixelSize, MaxPixelSize}, or
%%{fixed, PixelSize}

gs:frame(packer,Win,[{packer_x,[{stretch,1,500}]},

                       {packer_y,[{stretch,10,120,100},
                  {stretch,1,15,15}]}]),

%%这里我有个不明白的地方，  {packer_y,[{stretch,10,120,100}，为什么MinPixerlSize会比

%%MaxPixerlSize难道它们会自动交换？

 

 

%%gs:create(Obttype, Parent).

%%gs:create(Objtype, Parent, Options).

%%gs:create(Objtype, Parent, Option).

%%gs:create(Objtype, Name, Parent, Options).

%%gs:create(Objtype, Name, Parent, Option).

gs:create(editor,editor,packer,
          [{pack_x,1},{pack_y,1},{vscroll,right}]),
gs:create(entry    ,entry ,packer,
            [{pack_x,1},{pack_y,2},{keypress,true}]),
gs:config(packer,Size),

 

 

State=nil,

loop(Win,state).

 

 

 

 



 

 

  • 输入框有一个提示符
  • 能用标题右边的红叉来关闭整个应用。

io_widget_init()->

GS = gs:start(),

Size = [{width,500,{height,200}],

Win = gs:window(Gs,

     [{map,true},

      {configure,true},

      {title,"chat windows"}|Size]),

gs:frame(packer,Win,[{packer_x,[{stretch,1,500}]},

                       {packer_y,[{stretch,10,120,100},
                   {stretch,1,15,15}]}]),
gs:create(editor,editor,packer,
          [{pack_x,1},{pack_y,1},{vscroll,right}]),
gs:create(entry    ,entry ,packer,
            [{pack_x,1},{pack_y,2},{keypress,true}]),
gs:config(packer,Size),
Prompt = ">",
gs:config(entry,{insert,{0,Prompt}}),

State=nil,

loop(Win,state).

 



 

ps:这里所有红色边框是因为截屏软件引起的，不要误解～：）

 

 

  • 能用标题右边的红叉来关闭整个应用。
  • 能接受从entry输入的文字信息。
  • 把entry输入的文字信息显示在editor上面。
  • 把entry输入在editor上显示的提示符去掉。

loop(Win,State)->

receive

{gs,_,destroy,_,_}->

io:format("Destroyed ~n ",[]),

exit(windowDestroyed)

end.

%%当这个循环接收到来自gs的窗口关闭信息的时候，作出退出整个应用的系统的反应。这里发出一个windowDestroy

%%的消亡信号，所以与这个loop进程相联系的进程都会收到这个信号。我们当前代码中与这个loop进程相关联的进程是

%%我们shell的进程。



 

 

 

  • 能接受从entry输入的文字信息（在entry中输入文字，当按下enter键就接收一次entry中的数据）。
  • 把entry输入的文字信息显示在editor上面。
  • 把entry输入在editor上显示的提示符去掉。
  • reset下entry
loop(Win,State)->
receive
{gs,entry,keypress,_,['Return'|_]}->
Text = gs:read(entry,text),
io:format("Read:~p ~n",[Text]),
loop(Win,State);
{gs,_,destroy,_,_}->
io:format("Destroyed ~n ",[]),
exit(windowDestroyed)
end.



 
 
  • 把entry输入的文字信息显示在editor上面。
  • 把entry输入在editor上显示的提示符去掉。
  • reset下entry

 

 

widget(Gs)->

%%这里省略一段代码...

%%原先的gs:config(entry,{insert,{0,Prompt}}).删掉改成如下，算是DRY吧-_-!!!

reset_prompt(Prompt),

loop(Win,State,Prompt).

 

loop(Win,State,Prompt)->

receive

{gs,entry,keypress,_,['Return'|_]}->

Text = gs:read(entry,text),

Parse_Text = parse(Text),

io:format("Read:~p ~n",[Parse_Text]),

gs:config(entry,{delete,{0,last}}),

reset_prompt(Prompt),

loop(Win,State,Prompt);

{gs,_,destroy,_,_}->

io:format("Destroyed ~n ",[]),

exit(windowDestroyed)

end.

 

reset_prompt(Prompt)->

gs:config(entry,{insert,{0,Prompt}}).

 

 

parse([$>|T])->T;

parse([_|T])->parse(T);

parse([])->exit("no >").


  •  把entry输入的文字信息显示在editor上面。
  • 当editor中文字信息满掉的时候，能向下滚动。

loop(Win,State,Prompt)->

receive

{gs,entry,keypress,_,['Return'|_]}->

Text = gs:read(entry,text),

Parse_Text = parse(Text),

gs:config(editor,{insert,{'end',Parse_Text++"\n"}}),

%%这里我本想把最后收到信息放在最上面一行的，因为editor的默认vscrollpos一直定位在0的，把

%%最后收到的信息放在最后一行不能进行自动的滚动，想要查看还得使用滚动条，麻烦！

%%尝试过gs:config(editor,{insert,{'0',Parse_Text++"\n"}}),

%%gs:config(editor,{insert,{0,Parse_Text++"\n"}}),

%%gs:config(editor,{insert,{'begin',Parse_Text++"\n"}}),

%%都出错，gs的api上面也没写着！这里知道的朋友请告之下！

scroll_to_show_last_line(),

gs:config(entry,{delete,{0,last}}),

reset_prompt(Prompt),

loop(Win,State,Prompt);

{gs,_,destroy,_,_}->

io:format("Destroyed ~n ",[]),

exit(windowDestroyed)

end.

 

 

scroll_to_show_last_line()->

Size = gs:read(editor,size),

Height = gs:read(editor,height),

CharHeight = gs:read(editor,char_height),

TopRow = Size - Height/CharHeight,

if 

TopRow >0 -> gs:config(editor,{vscrollpos,TopRow});

true -> gs:config(editor,{vscrollpos,0})

end.

 



 

【滚雪球学数学建模】第2节·建模思维训练
**My Coding Family**
09-04 1121
🎓 本文收录于 《滚雪球学数学建模》专栏，本专栏专注于从零基础出发，带你循序渐进掌握数学建模的核心方法与思维路径。通过“滚雪球式”学习法，从最简单的生活化案例到经典建模工具，再到省赛、国赛真题实战演练，逐步积累知识与技能，帮助你搭建完整的建模体系。无论你是刚接触建模的新生，还是希望提升科研与竞赛能力的学者与工程师，本专栏都将为你提供一条清晰、高效、可实操的建模成长路线，助力你快速进阶，突破难点，迈向数学建模竞赛与实际应用的更高峰 🚀！
【滚雪球学数学建模】第1节·建模入门+三步法+案例
**My Coding Family**
09-04 968
🎓 本文收录于 《滚雪球学数学建模》专栏，本专栏专注于从零基础出发，带你循序渐进掌握数学建模的核心方法与思维路径。通过“滚雪球式”学习法，从最简单的生活化案例到经典建模工具，再到省赛、国赛真题实战演练，逐步积累知识与技能，帮助你搭建完整的建模体系。无论你是刚接触建模的新生，还是希望提升科研与竞赛能力的学者与工程师，本专栏都将为你提供一条清晰、高效、可实操的建模成长路线，助力你快速进阶，突破难点，迈向数学建模竞赛与实际应用的更高峰 🚀！
《Erlang程序设计》学习笔记-第11章 IRC Lite
Living And Programing
03-13 1087
没什么可说的，看源码。
IRC lite
仅仅是对自己滴知识做一个总结
12-23 863
IRC lite
16、Erlang与Clojure：特性剖析与入门指南
a0b1c2d3的专栏
12-03 12
本文深入剖析了Erlang与Clojure两种函数式编程语言的核心特性、优势与劣势。Erlang以其卓越的并发处理能力和高可靠性，适用于电信和分布式系统；Clojure作为运行在JVM上的Lisp方言，结合了函数式编程与Java生态的优势，适合数据处理与Web开发。文章还提供了Clojure的入门指南，涵盖基础语法、集合操作、函数定义及递归、序列和惰性求值等高级概念，并通过对比分析与学习路径建议，帮助开发者选择并掌握这两门语言。
关于并发和并行，Go和Erlang之父都弄错了？
OneFlow深度学习框架
06-08 2869
并行和并发需要的是不同的工具，而对单个工具来说，并行和并发不可兼得。
erlang
风花雪月 奋斗-ing
04-06 4148
下一页 Erlang并发编程 作者: Joe Armstrong Robert Virding Claes Wikstrőm Mike Williams 原文: Concurrent Programming in Erlang (PDF) 译者: 志愿译者列表 CPiE-CN:《Erlang并发编程》中文版翻译计划 离线浏览: 下载（tar.gz） 最后更新: 2009-12-
Erlang中的二进制位串（2）
weixin_30861459的博客
07-18 718
了解完 Erlang 的基本特性之后，就进入了基本语法的学习，但这部分着实让我费了点力气，因为和之前接触过的编程语言（C,C++,JAVA,C#）太不一样了，有很多新的理念，这儿我记录一下 Erlang 中一个很有特色的语言元素——二进制位串。 二进制串就是无符号8位字节序列，用于存放和处理数据块（通常是读自文件或通过某网络协议接收到的数据）。位串则是广义的二进制串，其长度不必是8的整数...
Archive for the ‘Erlang’ Category 《Erlang编程指南》读后感
weixin_30416497的博客
11-27 189
http://timyang.net/category/erlang/ 在云时代，我们需要有更好的能利用多核功能及分布式能力的编程语言，Erlang在这方面具有天生的优势，因此我们始终对它保持强烈关注。 按：此为客座文章，投稿人为新浪微博基础研发工程师赵鹏城（http://weibo.com/iamzpc），以下为原文。在对一个分布式KV存储系统的研究过程中，我有幸遇到了Erlang语...
[转载]Erlang语言与分布式编程引言
weixin_34106122的博客
07-27 208
2019独角兽企业重金招聘Python工程师标准>>> ...
提示词编程语言的并行计算模型
AI天才研究院
11-18 1069
提示词编程语言的并行计算模型 关键词： 并行计算，提示词编程语言，并行编程，性能优化，架构设计 摘要： 本文深入探讨了提示词编程语言的并行计算模型，包括其背景、重要性、基础知
AI编程语言的认知心理学实证研究
AI天才研究院
01-09 689
《AI编程语言的认知心理学实证研究》 关键词 AI编程语言 认知心理学 实证研究 编程教育 人工智能开发 摘要 本文通过认知心理学的视角，对AI编
（86页PPT）模特大赛某著名企业vipmodel公关传播方案.pptx
12-21
（86页PPT）模特大赛某著名企业vipmodel公关传播方案.pptx
STM32F103 HAL库标准模板与嵌入式物联网项目实战代码
12-21
本课程聚焦于嵌入式物联网单片机项目的实践开发环节，所提供示例程序均经过系统化设计与调试，具备良好的可读性与实用性。示例代码基于KEIL开发环境并采用HAL库架构实现，当前主要适配STM32F103系列芯片。若需应用于同系列其他型号芯片，仅需在KEIL环境中调整对应芯片型号及FLASH容量配置即可完成迁移。 在程序下载阶段，请根据实际使用的调试工具（如J-Link或ST-Link）正确配置KEIL中的连接选项。如需扩展外部传感器，可参考本课程配套的其他技术文档。硬件连接方面，各模块与单片机的引脚对应关系已在代码中通过宏定义明确标注，使用时请逐一核对。 请注意，示例程序基于标准硬件环境开发，若实际硬件存在差异，可能需要根据具体电路对代码进行相应调整。所有代码均附有详细注释，建议结合注释内容进行系统性分析与理解。 资源来源于网络分享，仅用于学习交流使用，请勿用于商业，如有侵权请联系我删除！
学生考勤打卡的设计与实现--开题 任务书.doc
12-21
学生考勤打卡的设计与实现--开题 任务书
该文章主要介绍使用贪心算法解决洛谷平台上的一个经典背包问题-在限定容量下选择物品以最大化总价值 提供了一段C++代码实现，核心思想是按物品的单位重量价值（价值/重量）进行排序，并优先选取单位价值最高
12-21
内容概要：本文通过一段C++代码实现了一个贪心算法的经典问题——“装最大价值的宝藏”，即在给定容量的背包中尽可能装载单位价值最高的物品，以获得最大总价值。文章展示了如何利用goto语句和数组存储物品重量与价值，并通过计算单位价值（价值/重量）进行优先选择，逐步填充背包直至容量耗尽。代码逻辑清晰地体现了贪心策略的核心思想：每一步都选取当前最优解。同时，该示例也反映了在特定编程环境下对控制流的底层操控方式。; 适合人群：具备基本C++编程能力、正在学习算法设计与贪心策略的初学者或编程爱好者；适合有一定编程经验但希望理解经典算法实际代码实现的研发人员。; 使用场景及目标：①学习贪心算法的基本思路及其在背包问题中的应用；②理解单位价值排序与局部最优选择的实现方法；③掌握用基础语法结构（如goto、数组、条件判断）构建算法逻辑的能力； 阅读建议：此资源以简洁代码呈现算法本质，建议读者结合输入样例手动模拟执行流程，深入理解变量变化与算法跳转逻辑，并尝试将其重构为现代结构化编程风格（如for循环、函数封装），以提升代码可读性与工程实践能力。
高校教学【蓝桥杯教学】BASIC-14时间转换.docx
12-21
内容概要：本文档是一道编程练习题，题目为“时间转换”，要求将给定的以秒为单位的时间t转换为“<H>:<M>:<S>”的格式输出，其中H表示小时，M表示分钟，S表示秒，均为整数且无前导零。题目给出了具体的输入输出格式，并提供了三个编程语言（C++、C、Java）的参考代码实现，展示了如何通过整除和取余运算分解总秒数为时、分、秒三个部分。; 适合人群：具备基本编程能力、正在学习算法或准备程序设计竞赛的初学者，尤其是对时间单位换算和基础输入输出操作感兴趣的开发者。; 使用场景及目标：①用于练习基础的数学运算与时间格式化输出；②帮助理解整除与取模在实际问题中的应用；③适用于编程入门者巩固语法基础并提升简单逻辑实现能力。; 阅读建议：建议读者先独立尝试解题后再对照提供的参考代码进行比对，注意不同语言在输入处理和类型转换上的差异，同时可通过修改输入边界值测试程序鲁棒性。
基于Python的视频多目标检测与跟踪系统源码及数据集
12-21
本资源提供了一套基于Python编程语言开发的计算机视觉系统，该系统创新性地将目标检测与目标跟踪技术相融合，专门用于处理视频序列中的多目标识别与持续追踪任务。该课程设计成果在学术评审中获得了97分的优异成绩，并得到了指导教师的专业认可。 项目内容完整，包含了实现该混合算法的全部源代码以及进行实验验证所需的完整数据集。其设计充分考虑了教学与实践的便捷性，使用者无需进行额外的环境配置或代码调整即可直接部署并运行整个系统，确保了项目的可复现性与易用性。 该成果完全适用于高等院校的课程设计、期末综合大作业或相关的毕业设计环节，为学生提供了一个结构清晰、功能完备且经过验证的研究案例，有助于深入理解视频分析领域中目标检测与跟踪算法的协同工作流程与工程实现。 资源来源于网络分享，仅用于学习交流使用，请勿用于商业，如有侵权请联系我删除！
vs2022.rar(安装包)
最新发布
12-21
vs2022.rar(安装包)
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值