newlisp socket编程实例

有时候，我们需要一个方法获取自己上网的公网IP地址，可以无需编程，通过访问网站http://www.ip138.com/

即可知道。不过这种方法不适合系统自动化运维。写C++或者其他程序是不是太麻烦了点。

用newlisp来快速实现一个如何。

先看实现服务器的代码：

#!/usr/bin/newlisp ;; client connects to sender(if (not (set 'connection (net-connect "your_server_ip" 7980)))    (println (net-error)));; maximum bytes to receive(constant 'max-bytes 1024);; message send-receive loop(println (net-send connection "hello"))(close connection)(exit)

客户端每次连接位于公网的服务器，发送hello字符串，然后关闭连接。

这个小程序有很大的用处，特别是一方公网IP可能变化的情况下，用crontab定时调用client程序，也就是相当与定时通知服务器自己的公网IP，如果再加上路由的端口映射和SSH隧道，用处那是相当的大啊。大家可以灵活运用。：）