perl printf函数[转]

蚊子最近在写网络tcpping测试的脚本,最终输出结果需要格式化好入库,于是学了一下perl中printf的用法,特此记录下来,以免忘了。

printf函数可以格式化输出字符串
用法:

printf FILEHANDLE FORMAT, LIST

printf FORMAT, LIST

例如:

printf函数先格式化字符串再输出到指定文件或当前缺省文件中,如:
printf OUTFILE (“You owe me %8.2f”, $owing);
此语句取出变量$owing的值并替换掉串中的%8.2f,%8.2f是域格式的例子,把$owing的值看作浮点数。 Continue reading “perl printf函数[转]”

脚本分享–linux下磁盘io测试

这两天在测试Dell的PS6000存储,在linux下也懒得去找测试工具了,就直接使用dd命令进行I/O测试,但因为需要测试的数据很多,从512b到4M的块,每一档都要进行读写的测试,这要是人肉来做,那就太累了,于是就产生了下面这个脚本。

本脚本使用perl编写,根据测试用例,完成每次读或写测试。
本脚本共有3个参数,两个是必选参数,一个是可选参数
-r 测试读性能
-w 测试写性能
-c 可选参数,用于关闭文件系统的缓存

Continue reading “脚本分享–linux下磁盘io测试”

ssh ftp故障两例

蚊子最近用perl写了个sftp的脚本用来从远端服务器上每小时获取网络ping测试数据。昨天又拿到了一个机房的测试服务器,按照正常的流程配置了相应的脚本,数据已经都开始收集了,不过从昨天下午,sftp就不能用,看打出的日志,居然报错,报错的内容如下

Request for subsystem ‘sftp’ failed on channel ‘1’ at /usr/lib/perl5/vendor_perl/5.8.8/Net/SFTP.pm line 92

Continue reading “ssh ftp故障两例”

linux系统用户密码字符串生成命令-shadow里的密码串生成[转]

这两天在看puppet,准备用这个管理我手下系统的用户添加分配与删除工作,不过每次要是都用系统的passwd命令生成用户密码那就有点太麻烦了,在网上找了一下,可以通过perl生成linux系统用户保存在shadow中的密码,分享如下。

perl -e ‘print crypt(“88991026”,q($1$aCwLBNGo)),”\n”‘                             \\其中88991026为要给用户设置的密码,$1$aCwLBNGo字符串是自定义字符串,shadow里一般用$1$后面跟8个字符这种格式。 Continue reading “linux系统用户密码字符串生成命令-shadow里的密码串生成[转]”

perl清除squid缓存脚本[原创]

最近蚊子我思考了一下,要是想让我的那个web版清除缓存程序支持对指定文件,对指定域名缓存的清除,那就只能使用c/s模式,那s端的脚本就是关键。

这篇文章只是蚊子下一步工作的一个铺垫,只能算是前期的一个准备工作。在s端,蚊子决定使用perl脚本来完成,所以,这里先写了一个使用perl在清除指定文件的脚本。为了方便其他人使用,特把这个脚本share出来。 Continue reading “perl清除squid缓存脚本[原创]”