【专题交流】我今天又偷懒了

hmilymb

几十个配置文件，每个文件中里面有许多ip和端口，由于网络更改了，许多ip和端口都变了。
网络部门那边给一ip更变文件，里面记录那个ip更变。

如果用手工一个一个改，既痛苦有不能保证是否遗漏和错误，怎么也得用2天，用per写了个小程序，先读ip更变文件，遍历并更改配置文件，又快又好，不用半个小时搞掂。

[ 本帖最后由 hmilymb 于 2007-8-30 04:38 编辑 ]

mdsqeh

楼上的写的太精彩了,虽然不懂PERL ,看了大家的介绍决定就学他了,顺便说一句 我是做网络维护的.

xjtubaby

楼上的兄弟们都写得太好了，值得借鉴阿，我也写过点小的，最近一个

由于测试需要，每天都需要测试新出的build，而且build文件很大，下载又慢，写了个perl程序，每天下班自动下载其最新的版本到本地，解压，修改配置文件，安装，第二天过来测试，节省了挺多时间的。：）
没用到太多的模块，看来要向前辈们学习啊！

goride

对楼上的诸多前辈真是佩服啊。

longbow0

佩服，学习中

gdutllf2006

准备学习中！
听说学perl使人变懒！

xti9er

工作中我也常用perl来做一些事情，自动化，降低人力成本。

工作中：
1、以前干工程，需要计算道路线路曲线坐标。通过perl编写的程序，只要输入初始参数，整条线路3公里逐个输出坐标，比人工计算即省时又省力，还不会出错。
2、现管理服务器时现，与nagios配合，间隔多久自动查询页面，返回的结果取需要关注的地方，按事件重要程度发mail通知。
这比盯着N多服务器省心很多。
还有很多工作中的应用不方便说了。

生活中：
1、炒股，自动收集整理我持有股票的涨跌并汇总，计算盈亏
2、翻译，通过google或本地词库翻译
3、炒黄金，提取黄金走势图
4、spider

网络安全方面 就更不必多说了，非常顺手

以上诸多工具都可以按需扩展功能

[ 本帖最后由 xti9er 于 2009-6-2 15:07 编辑 ]

wxlfh

单位年初都要造上一年的年报，于是就用Perl配合Win32::OLE模块自动生成了报表，我只要半小时，这还包括了数据准备，报表录入（年报系统是一个N老的系统，用Visual Foxpro编的，因为不熟悉系统，没敢自己写DBF文件），打印的时间。

想起以前我的前任要忙活一星期，我就情不自禁地笑了。

[ 本帖最后由 wxlfh 于 2009-6-2 14:59 编辑 ]

ttcn

1. 用perl生成设备config文件。 公司要deploy几十个设备，每个设备都要按照excel表格配置网络地址，用perl读取后直接生成

2.解析log，用perl分析日志，没用的信息统统滤掉，几百行的log大概留下十几行

3.用perl去下载国家地理杂志每日图片：公司里的电脑是24小时开着的，vista下设置一个计划任务，每天下载，积少成多
代码见：http://hi.baidu.com/seraphxby/bl ... cc18d4572c84a1.html

black_fire

从A服务器取到access.log, 同步到B服务器进行 awstats分析,

基本流程：
1. perl取到 A服务器sites下所有网站的access.log, 同步到B服务器(如有需要，自动创建相应该文件夹),  
2. 套用 lighttpd模板 修改lighttpd配置(一般是创建一个虚拟主机), 然后生成随机密码， 发送给sysadmin。
3. 流量统计的首页产生简报