Skip to content

Instantly share code, notes, and snippets.

View shalk's full-sized avatar
🎯
Focusing

shalk(xiao kun) shalk

🎯
Focusing
21 followers · 98 following
View GitHub Profile
@shalk
shalk / gist:8e6d5c30244b21a95814
Created May 15, 2014 06:30
perl 使用expect 模块， 问答都放在hash中，类似的修改问答和 命令就行了； perl use expect module ，all Question /Answer in Hash
#!/usr/bin/env perl
use 5.010;
use strict;
use Expect;
my $cmd = "perl simulate.pl";
my $timeout = 30;
my @question_list = qw/name age home/;
my $qa = {
"name" => "shalk\n",
@shalk
shalk / gist:d5d7cfa83610706c5a75
Created May 28, 2014 07:31
epxect example
[root@localhost ~]# cat 1.pl
#!/usr/bin/env perl
use 5.010;
use strict;
use Expect;
#use Smart::Comments;
my $cmd = "perl simulate.pl";
my $timeout = 30;
my $qa = {
@shalk
shalk / gist:0a80a273502816e44598
Created May 29, 2014 03:13
config no password for cluster 集群无密码访问
#!/usr/bin/env perl
use strict;
#use lib './nopass/lib/perl5/';
#use Smart::Comments;
use Expect;
use Getopt::Long;
my $username = "root";
@shalk
shalk / gist:ed102f8d5c393f693d1c
Created June 13, 2014 08:20
redhat 6 serial use centos‘s yum repo redhat6系列使用centos的yum 源，卸载自带的yum软件即可
wget http://mirrors.163.com/centos/6/os/x86_64/Packages/python-iniparse-0.3.1-2.1.el6.noarch.rpm
wget http://mirrors.163.com/centos/6/os/x86_64/Packages/yum-metadata-parser-1.1.2-16.el6.x86_64.rpm
wget http://mirrors.163.com/centos/6/os/x86_64/Packages/yum-3.2.29-40.el6.centos.noarch.rpm
wget http://mirrors.163.com/centos/6/os/x86_64/Packages/yum-plugin-fastestmirror-1.1.30-14.el6.noarch.rpm
rpm -qa | grep yum | xargs rpm -e --nodeps
rpm -ivh python-iniparse-0.3.1-2.1.el6.noarch.rpm
rpm -ivh yum-metadata-parser-1.1.2-16.el6.x86_64.rpm
rpm -ivh yum-3.2.29-40.el6.centos.noarch.rpm yum-plugin-fastestmirror-1.1.30-14.el6.noarch.rpm
@shalk
shalk / gist:55910d90435bb6be74f1
Last active August 29, 2015 14:03
suse 11 sp3 安装 Fabric
python -V
if [ $? != 0 ] ; then
echo "python not installed"
fi
#
rpm -ivh python-devel-2.6.0-8.12.2.x86_64.rpm
fail(){
@shalk
shalk / susepxe
Last active August 29, 2015 14:04
安装好一台suse11SP2，将iso，autoinst.xml 和susepxe.sh 上传到/root目录，修改脚本中开头的参数，再sh susepxe.sh 就建立PXE服务器，可以批量安装SUSE
#!/bin/bash
# prepare:
# a server installed suse 11 sp2
# ISO of suse
# autoinst.xml
# this script
# usage:
# modify this script's line between 18 ~ 26
# make this parameter correct
# description:
@shalk
shalk / gist:37a6564213a17ac89391
Created September 26, 2014 09:31
suse11sp3 to vcell
#!/bin/bash
# This script make suse11sp3 to vcell0901 + snapshot-bugfix
# shalk 2014-09-26
unzip -f vcell-extra.zip
unzip -f snapshot-bugfix.zip
cd extra
echo "install sugon extra rpm"
@shalk
shalk / VPN (PPTP) EC2 Setup
Last active August 29, 2015 14:08 — forked from ychin/VPN (PPTP) EC2 Setup
# http://www.yzhang.net/blog/2013-03-07-pptp-vpn-ec2.html
# Run this in a root bash environment
#
# modify the <password>
yum -y update
wget http://poptop.sourceforge.net/yum/stable/rhel6/x86_64/pptpd-1.4.0-1.el6.x86_64.rpm
yum -y localinstall pptpd-1.4.0-1.el6.x86_64.rpm
echo localip 192.168.9.1 >> /etc/pptpd.conf
@shalk
shalk / dbm.patch
Last active August 29, 2015 14:10
dbm patch for install perl 5.20.0 on SLES 11 SP3 ; thanks to http://www.techsutram.com/2011/02/opensuse-113-and-compiling-perl-5123.html; usage :patch -p0 < dbm.patch
--- /usr/include/dbm.h 2009-02-21 14:52:33.000000000 +0800
+++ /usr/include/dbm.h.pacthed 2014-12-01 20:35:59.000000000 +0800
@@ -59,4 +59,4 @@
extern datum nextkey __P((datum key));
-extern int dbmclose __P((DBM *));
+extern int dbmclose __P((void));
@shalk
shalk / gist:b5f82af7c3e9da32c632
Created April 23, 2015 05:49
use Webqq::Client;
use Digest::MD5 qw(md5_hex);
my $qq = 171214273;
my $pwd = md5_hex('XXXXXXXX');
#通过new来初始化一个客户端对象
##debug=>1来打印debug信息方便调试
my $client = Webqq::Client->new(debug=>0);
#
# #通过login进行登录