See http://www.karan.org/blog/index.php/2009/08/25/multiple-ssh-private-keys

chown my_user_name ~/.ssh/config

And see http://help.github.com/multiple-ssh-keys/

Some CMS are too smart to handle <span> tag properly.

I have to copy the content into clipboard, remove the span tag, and paste it back into CMS.

Actually all the trouble could be saved by one line linux command,

xclip -o|sed 's%</*span[^>]*>%%g'|xclip -selection c

作者: 陈斌(redguardtoo)

注意: 我会长期维护本文,请参考下面的更新时间

更新时间: <2016-10-09 Sun>

原创时间: <2011-05-08 Sun>

这是为有志于成为高手的中级Linux用户而写的入门指导.

export HISTSIZE=200000

sudo git add /etc/
sudo git commit -am "backup"

sudo git log /etc/mysql/my.cnf #check history
sudo git checkout commit_ref(version) /etc/mysql/my.cnf #restoren file

packer downgrade

tar zcvpf mylinux.tgz --exclude=/proc/* --exclude=/lost+found --exclude='mylinux.tgz' --exclude=/mnt/* --exclude=/home/username/* --exclude=/sys/* /

strace -o err.txt firefox

sudo ln -s /usr/lib/libpng.so.15 /usr/lib/libpng.so.14

pkgfile libpng

packer -S pkgtools-git

UPDATED: <2015-01-31 Sat>

CREATED: <2011-04-29 Fri>

cygwin1.7在我的电脑上不能显示中文,已困扰我很久了.

今天才找到解决办法,只要安装mintty即可.

最新版Cygwin默认就已安装启用mintty.

安装后在宽屏显示器上字可能较小, 解决办法如下：

• 或参考其手册缩放字体.
• 或右击左上角设置字体, "新宋体 常规 三号"

另外设置scroll back 80000行. 右侧滚动条无.

以下是我的cygwin.bat,

@echo off
set EDITOR=vi
set VISUAL=vi
REM shamelessly copied from git://github.com/justsoso8/dotfile.git
REM mintty installed which supports chinese
REM =======================================
@echo off
rem find cygwin roo directory one by one
rem disk c -> disk d -> disk e

:CYGWIN_C
if not exist c:\cygwin goto CYGWIN_D
set _cygwinroot=c:\cygwin
goto HAVECYGWIN

:CYGWIN_D
if not exist d:\cygwin goto CYGWIN_E
set _cygwinroot=d:\cygwin
goto HAVECYGWIN

:CYGWIN_E
if not exist c:\cygwin64 goto CYGWIN_F
set _cygwinroot=c:\cygwin64
goto HAVECYGWIN

:CYGWIN_F
if not exist d:\cygwin64 goto NOCYGWIN
set _cygwinroot=d:\cygwin64
goto HAVECYGWIN

:NOCYGWIN
echo no cygwin installation found on disk C/D/E/F
pause
goto EOF

:HAVECYGWIN

chdir %_cygwinroot%\bin
set _termapp=%_cygwinroot%\bin\mintty.exe
start %_termapp% -w full /bin/bash --login -i
:EOF
exit

虽然tmux很优秀,但是目前很难支持cygwin(Nicholas Marriott在2010年12月说的),而我的工作需要使用windows.

最新版的screen的一个重要特性就是已支持垂直分屏,其快捷键为=C-a |=.

packer -S screen-git

tar zxf screen-4.0.3.tar.gz

cd screen-4.0.3;configure;make;make install;

$ screen
$TERM too long - sorry.

urxvt*termName: rxvt-256color

term rxvt-256color

escape"^Tt"  #the default of A interferes with emacs keybindings for terminal, and I never use the emacs transpose command

作者: 陈斌 (redguardtoo)

更新时间: <2023-08-09 Wed>

原创时间: <2011-04-16 Sat>

这是第一篇。用org2blog发的，看一下中文支持如何.

I write this script for a real project. It changes ip of every node in a local network. All the information related to our customer is deleted.

if you see the test() function and you will notice "assert" lines. Yes, I believe in TDD (Test Drivern Development).

#!/usr/bin/perl
require "assert.pl";
if(0){
open(F,"/etc/hosts");
@lines=;
close(F);
foreach (@lines){
    print $_;
}
}#if(0)

############################
# main
############################
if(1){
if(&is_interactive()){
    print "Usage: echo 127.0.0.1 ekcms| ./chgip\n";
    exit 1;
}

$pipein=;
chomp($pipein);
my $h=&who_will_change($pipein);
foreach (keys %$h){
    print "key=$_;val=$h->{$_}\n"; #debug
}
&change_etc_hosts("/etc/hosts",$h);
#distribute /etc/hosts 
foreach my $k (keys %$h){
    system("scp /etc/hosts root@$k:/etc/hosts") || assert(0);
}
&change_ip("/etc/sysconfig/network-scripts",$h);

}#if(0)

############################
# test
############################
if(0){
    &test();
}#if(0)

############################
# subroutines
############################
sub test
{
if(0){
    print &unique_id();
}#if(0)

if(1){
    my $p="127.0.0.1 ekcp1\n0.0.0.0 ekcp2";
    $p.="\n99.99.99.99 ".`hostname`;
    my $h=&who_will_change($p);
    foreach (keys %$h){
        print "key=$_;val=$h->{$_}\n"; #debug
    }
    &change_etc_hosts("hosts",$h);
    #&change_ip("./",$h);
}#if(0)
}

sub is_interactive {
    return -t STDIN && -t STDOUT;
}


# Usage: my $p="127.0.0.1 ekcp1\n0.0.0.0 ekcp2";$h=&chgip($p);print $h->{'ekcp1'};
sub who_will_change
{
    my $p=shift;
    my %h=();
    my @ls=split(/\n/,$p);
    foreach (@ls){
        chomp($_);
        if($_ eq ""){next;}
        my @a=split(/ /);
        if($a[1] eq ""){next;}
        $h{$a[1]}=$a[0];
    }
    return \%h;
}


# Usage: my $p="127.0.0.1 ekcp1\n0.0.0.0 ekcp2";$h=&chgip($p);&change_etc_hosts("/etc/hosts",$h);
sub change_etc_hosts
{
    my $f=shift;
    my $h=shift;
    open(F,$f);
    @lines=;
    close(F);
    foreach my $k (keys %$h){
        #print "k=$k\n"; #debug
        my $replaced=0;
        for(my $i=0;$i<=$#lines;$i++){
            if($lines[$i]!~/^[\d\.]+[\s]+$k\W/){
                next;
            }
            $lines[$i]=~s/^[\d\.]+/$h->{$k}/g;
            $replaced=1;
            #print "line=".$lines[$i]; #debug
        }
        if(!$replaced){
            push(@lines,"$h->{$k} $k\n");
        }
    }
    foreach (@lines){print "line=$_";}; #debug
    open (F,">$f");
    print F (@lines);
    close(F); 
}

#Usage: my $p="127.0.0.1 ekcp1\n0.0.0.0 ekcp2";$h=&chgip($p);&change_ip("/etc/sysconfig/network-scripts",$h);
#Return: 0 - everything ok; 1 - several hosts unreachable
sub change_ip
{
    my $dir=shift;
    my $h=shift;
    my $ret=0;
    #print "dir=$dir\n"; #debug
    my $pingcmd="ping";
    my $s=`uname`;chomp($s);
    if($s eq "Linux"){ $pingcmd="ping -c 2"};
    $s=`hostname`;chomp($s);
    foreach my $k (keys %$h){
        #if(system("$pingcmd $k")!=0){
        #   $ret=1;
        #   next;
        #}
        if( $s eq $k){ #local
            print "s=$s;k=$k\n"; #debug
            system("perl -i.bak -pe 's/IPADDR=.*/IPADDR=$h->{$k}/g' $dir/ifcfg-eth0") || assert(0);
        }
        else{ #remote
if(0){
            my $u=&unique_id();
            system("scp root@$k:$dir/ifcfg-eth0 /tmp/$u.ifcfg-eth0") || assert(0);
            system("perl -i.bak -pe 's/IPADDR=.*/IPADDR=$h->{$k}/g' /tmp/$u.ifcfg-eth0")|| assert(0);
            system("scp /tmp/$u.ifcfg-eth0 root@$k:$dir/ifcfg-eth0 ")|| assert(0) ;
            system("/etc/init.d/network restart")|| assert(0);
}#if(0)
        }
    }
    return $ret;
}

sub unique_id()
{
    my $s=`date +%s`;
    return crypt($s,chr(int(rand(127))));
}


############################
# test data
############################