常用perl模块的使用
常用perl模块的使用 1. Net::Ping,perl的ping模块,范例: #!/usr/bin/perl -w use strict; use Net::Ping; sub ping_check{ my $dest=shift; my $mp = Net::Ping->new("icmp"); if($mp->ping($dest,2)){ print …
常用perl模块的使用 1. Net::Ping,perl的ping模块,范例: #!/usr/bin/perl -w use strict; use Net::Ping; sub ping_check{ my $dest=shift; my $mp = Net::Ping->new("icmp"); if($mp->ping($dest,2)){ print …
perl正则匹配时的环视和命名捕获 perl的正则匹配里有几个有用的匹配方式 1.非捕获型匹配 [perl] #!/usr/bin/perl use warnings; use strict; my $line="123d4f5g7h8"; if($line=~/(?:5)(\w)/){ print “match $1\n”; } [/perl] 这样就表示 …
找出IO消耗较高的进程 经常碰见服务器IO比较慢,这个是最不能忍受的,因为基本的命令行操作都会非常慢。网上搜了下,可以按照这个方式直接找出耗IO最高的进程名。 1.先停掉syslog然后打开block dump service syslog stop echo 1 > /proc/sys/vm/block_dump 2.从dmesg的中找到消耗IO的进程 dmesg | grep -E …
linux上的rdp客户端 由于工作需要,经常得在linux下登陆windows的远程桌面.找到了一个比较好的客户端 aptitude intall remmina即可..
OOM续 最近维护测试服务器越来越多出现OOM。每次都是改改内核参数,貌似有点用处。但是这个治标不治本,源头没有找到。 自己先了解了一下一些基础性的东西。每次OOM后查看messages日志都能看到 <span>Jun 18 17:10:23 free-72-222 kernel: oom-killer: gfp_mask=0xd0 Jun 18 17:10:23 …
openssl签发证书时设置subjectAltName 很简单地表述一下需求,就是希望一个证书能给多个域名使用(非通配符证书). 直接上脚本吧,第一个是生成根CA的证书,因为是在以前的基础上完成的,所以实际是将就自己以前写的一个多级CA签发证书的脚本做的。原文见http://blog.chinaunix.net/uid-20553497-id-3163297.html。 …
OOM-killer 今天碰见个应用。一启动就被干掉了,jboss没有打出什么日志,然后看了下messages里面有OOM-killer. Jun 1 10:09:15 test kernel: Out of Memory: Killed process 10645 (java). Jun 1 10:12:28 test kernel: oom-killer: gfp_mask=0x4d0 Jun …
3种常用的ssh端口映射 openssh客户端除了可以作为一个ssh登陆客户端外,还能做一些简单的端口映射,非常使用的。常见的用法有三种: 1. -D [bind_address:]port Specifies a local “dynamic” application-level port forwarding. This works by allocating a socket to …
linux下配置drivel 为了方便有时在linux下更新blog,就安装了一个drivel。 服务器地址选为http://xxx.gnuers.org/xmlrpc.php就行了。 测试一下效果
ext3文件恢复 其实我一直很少测试一下东西,比如RAID,LVM,因为自己一直用笔记本,从来就没有用过两块硬盘。 现在就是想试试ext3和ext4的文件恢复。所以测试一下 直接 dd if=/dev/zero of=testdisk bs=1024 count=102400 sudo mkfs.ext3 testdisk sudo mount -o loop testdisk disk 这个就自 …