标签：AnyEvent

共 3 篇相关文章

IT 累计浏览 2,946

Perl 实现 Flash 的 Socket Policy 服务器

这篇讲的是作者从一个误解出发，折腾出一个轻量解决方案的实践经历。起初，为了支持Flash P2P功能的测试，作者需要提供Socket策略文件。他最初错误地以为只需用HTTP服务器响应，直到被合作方提醒，才明白Flash Player的机制：在建立Socket连接前，它会主动向服务器的843端口发送一个 `` 字符串以请求策略文件。理解了这个机制后，作者利用Perl的AnyEvent框架，仅用几分钟就实现了一个TCP服务器来响应这个请求。核心代码展示了AnyEvent::Handle的强大：它让服务器可以简洁地监听连接，并依据自定义规则（此处是收到特定字符串）进行读写。收到请求后，服务器直接返回预设的 `crossdomain.xml` 内容并主动断开连接，完美符合协议要求。作者也借此引出了AnyEvent在快速构建高性能TCP服务上的便利性。文章最后，作者提到自己后来发现GitHub上已有类似实现，相当于“重复造了个轮子”。但整个过程清晰地记录了问题排查、机制理解和代码实现的完整链条，对需要处理类似Flash Socket安全策略的开发者，是一个直接而有用的参考。

IT 累计浏览 3,137

使用 AnyEvent 来实现同一个端口跑二种服务

这篇讲的是一个非常实际的网络访问问题：当 Linode 的 SSH 端口（22）被 GFW 过滤后，如何利用仍然开放的 80 端口，让同一台服务器同时提供 HTTP 和 SSH 两种服务。作者从这个痛点出发，实现了一个基于 Perl AnyEvent 库的协议识别与转发代理。核心方案在于对连接建立时发送的初始数据包进行嗅探。对于 HTTP 请求，开头通常包含“GET”、“POST”等关键字；而对于 SSH 连接，像 SecureCRT 或 Bitvise 这样的客户端会主动发送包含“SSH”字样的协议头。程序根据这个特征，将连接动态转发到本地对应的 80 或 22 端口后端服务。作者基于国外一个 Perl 实现进行了重写和封装，利用 AnyEvent 的事件循环特性来构建高性能的异步代理。最终效果就是，作者现在浏览的网页和远程管理都是通过这同一个 80 端口完成的。这个方案虽然牺牲了使用 CDN 的可能性，但在特定网络环境下，提供了一种巧妙且有效的端口复用思路。

IT 累计浏览 2,173

Perl之AnyEvent 简单介绍和入门

这篇文章讲解了Perl中AnyEvent框架的基础概念和事件驱动编程的核心思想。作者从传统的顺序执行程序讲起，对比了事件驱动模型的显著区别：程序不再严格按“事件1、事件2”的线性流程运行，而是由外部事件（如用户点击按钮）来触发相应代码段的执行，主流程中几乎看不到明确的控制流。文中特别强调，理解这类程序的结构往往需要借助思维导图来梳理复杂的事件关系和处理逻辑。文章没有深入代码细节，而是聚焦于帮助读者建立正确的认知模型——将关注点从“程序接下来做什么”转向“程序如何响应特定事件”。这种思维转换是掌握AnyEvent及同类框架的关键第一步，尤其适合那些需要处理高并发、异步操作（如网络服务、GUI应用）的开发者阅读。