飞信我就不多介绍了，随着网上出现了libFetion后，各类第三方飞信客户端程序就纷纷涌现，对于飞信的协议分析资料也不少。不过一直比较遗憾的是用于命令行的客户端版本不多，目前只有基于PHP的实现，同时libFetion似乎不开源，无法基于它作开发。
其实纯命令行的实现有很多优势，比如可以写一个自动天气预报脚本，每天定时运行，采集到天气信息后就可以用命令行的飞信程序发送到手机了。
我原本打算用bash script实现一个飞信客户端，不过考虑到perl几乎每个linux发行版本都自带，且处理文本更加方便，所以这个周末就参照着网上一些PHP版的飞信实现，写了一个perl版本的飞信客户端脚本。同时因为之前从没有写过perl脚本也完全不会，所以也称趁这个机会速成一把。所谓实践出真知，写了这个脚本觉得自己的perl水平应该能算中等水平:-P
因为我写这个脚本主要就是为了发送短信用，所以功能很单纯，就是用飞信给一个手机号码发送指定的文本短信息。至于例如查询好友、加好友等复杂功能我没有考虑，各位可以发挥各自想象力，在以后的脚本基础上添加即可。本程序采用GPL作为许可证。
不明真相的截图
脚本的使用和要求：
按照飞信的协议要求，脚本中需要通过HTTP协议也要通过TCP socket发送SIPC文报。后者perl提供了POSIX一致的socket规范，前者我采用了curl命令，所以请确保自身系统中安装了合适的curl。对于win32，我没有做过测试，不过相信只要有相应的win32版程序，还是可以工作的。
如果要发送中文短信，请确保自己的shell环境是采用UTF8编码的。否则请用iconv自己转换。
要发送短信，请使用下面的命令：
这里要注意的是参数中所有手机号码都是应当绑定了飞信帐号的，且已经和发送手机建立了飞信好友关系。否则将发送失败。
如果发送成功，将有如下回应：
Retrieving the config xml...
Retrieving the SSIAPP URL...
Retrieving the SIPC Address...
Trying to get the fetion number of the current account...
Connecting to the SIPC via TCP socket...
Login OK
Send SMS succeed
为了各位调试或者了解协议详情，本脚本支持dump模式，请修改脚本，在执行前调用函数：fetion_verbose();脚本会将所有通讯文报打印至stdout。
脚本代码：
http://www.csksoft.net/data/code/perlfetion.pl.txt
