摘要：
提供域名，dnspod 账户密码（毕竟dns密码比较重要 不能谁 cat一下都可以看到 需要base64加密），原IP，切换目标IP，#!/bin/perluse warnings;use MIME::Base64;use LWP;use Encode;use JSON;use Data::Dumper;my $ChangeDomain='linuxjs.com';my $BeforeIP='XXX.XXX.XXX.XXX';my $ChangeIP='XXX.XXX.XXX.XXX';my $user= decode_base64(" 阅读全文
摘要：
#!/bin/sh#获取网卡名称eth=$(/sbin/ifconfig |grep eth |awk '{print $1}');#获取当前进出口流量RXpre=$(cat /proc/net/dev | grep $eth | tr : " " | awk '{print $2}')TXpre=$(cat /proc/net/dev | grep $eth | tr : " " | awk '{print $10}')#暂停1秒 获取当前网卡进出流量sleep 1RXnext=$(cat /proc/n 阅读全文
摘要：
DM多路径存储系统环境：RHEL5.4smallinstallselinuxandiptablesdisabled主机规划：主机网卡软件station133eth0:192.168.0.133 eth1:192.168.0.132scsi-target-utilsstation28eth0:192.168.0.28Iscsi-initiator-utilsdevice-mapperdevice-mapper-multipath什么是multipath普通的电脑主机都是一个硬盘挂接到一个总线上，这里是一对一的关系。而到了有光纤组成的SAN环境，由于主机和存储通过了光纤交换机连接，这样的话，就构成 阅读全文
摘要：
#!/usr/bin/perl`find /bak/ >list.txt`;open LIST,"/root/list.txt";while (){ chomp; open TEST,"$_"; if ( -d TEST ){ close TEST; } else{ close TEST; $mtime= -M $_; if ($mtime > 60){ print "$_ old than 60 day!!\n"; unlink $_; } }} 阅读全文
摘要：
#!/usr/bin/perluse DBD::mysql;use strict;use warnings;use DBI;use utf8;binmode(STDOUT, ':encoding(utf8)');binmode(STDIN, ':encoding(utf8)');binmode(STDERR, ':encoding(utf8)');use Time::Local;my $addtime=time();my $dbh;my ($a,$b,$c,$d,$f)=(0,0,0,0,0);sub getpid{ my $ser= pop @ 阅读全文