☎ EEXPRESS

☎ dog baidu.pl
use LWP;
use LWP::UserAgent;
my $w=$ARGV[0];
$w=`echo "$w"|iconv -f utf8 -t gbk|uni2ascii -a J`;
chomp($w);
$w=~s/\ /+/g;
$w="http://www.baidu.com/s?wd=$w";
my $ua = LWP::UserAgent->new();
$ua->max_size( 15 * 1024 );
my $reply = $ua->get("$w");
my $html;
if ( $reply->is_success ) {
$html = $reply->content;
my @t=$html=~/href=\"http.*?<\/a>/g;
my $n=5;
for my $s (@t){
if($s=~/www\.baidu\.com/){next;}
if($s=~/tieba\.baidu\.com/){next;}
if($s!~/font>/){next;}
$s=~s/<.*?>//g;
$s=~s/^href=\"//;
$s=~s/\".*>/ - /g;
$s=`echo "$s"|iconv -t utf8 -f gbk`;
chomp($s);
print " ▛ ";
print $s;
$n--;
last if ($n==0);
}}
else {die "无法获取的地址。";}


#----------------------------------------------
if(join(" ",@Amynick)=~$nick){ # 主人列表，私聊命令
my ($c,$w)=split(/\s/,$arg);
switch ($c){
case "join" {$self->join("${cfg_room}");}
case "nick" {$self->nick($w);}
case (\@ACmd) {
my $cmd;
if($w eq "on"){$cmd="$c=1";}else{$cmd="$c=0";}
eval "\$$cmd";
$self->privmsg("${cfg_room}", "Yes, Sir. $cmd\n");
$cmd="print \"----$c=\$$c----\t\"";
eval "$cmd";
last;
}
else {$self->privmsg("${cfg_room}", "$arg\n");}
}
}
#----------------------------------------------


☎ cd /usr/share/pixmaps/pidgin/protocols/; for i in *; do cd $i; sudo convert ‘/home/exp/媒体/●图标/48-png/gaim-48.png’ -scale $i jabber.png; cd ..; done

#========================================
my @Anick=(
["roylez","金日成:π"],
["GundamZZ","包包:π"],
["bones7456","排骨:π"],
["AutumnCat","球猫:π"],
["iNutshell","栗子壳:π"],
["manphiz","糖糖:π"],
["freeflying","狒狒:π"],
["iPeipei","佩佩朶:π"],
["Arthrun","老雕:π"],
["ShelyII","猞猁:π"],
["lerosua","广陵散:π"],
);
for my $i ( 0 .. $#Anick ){
if($Anick[$i][0] eq $nick){
$self->privmsg("${cfg_room}", "$Anick[$i][1]: π\n");
}
}
my ($c,$w)=split(/\s/,$arg);
my @Afunc=(
["t", "sdcv.bash"],
["a", "ip-ip纯真库.pl"],
["f", "t"],
);
for my $i ( 0 .. $#Afunc ){
if($Afunc[$i][0] eq $c){
my $r=`$Afunc[$i][1] $w`;
for my $i ($r=~/(.*)\n/g){
$self->privmsg("${cfg_room}", $i);
}
# $self->privmsg("${cfg_room}", `$Afunc[$i][1] $w`);
}
}
#========================================


if($nick eq 'roylez') {$self->privmsg("${cfg_room}", "金日成: ☎");}
if($nick eq 'GundamZZ') {$self->privmsg("${cfg_room}", "包包: ☎");}
if($nick eq 'bones7456') {$self->privmsg("${cfg_room}", "排骨: ☎");}
if($nick eq 'AutumnCat') {$self->privmsg("${cfg_room}", "球猫: ☎");}
if($nick eq 'iNutshell') {$self->privmsg("${cfg_room}", "栗子壳: ☎");}
if($nick eq 'manphiz') {$self->privmsg("${cfg_room}", "糖糖: ☎");}
if($nick eq 'freeflying') {$self->privmsg("${cfg_room}", "狒狒: ☎");}
if($nick eq 'iPeipei') {$self->privmsg("${cfg_room}", "佩佩朶: ☎");}
if($nick=~/Arthrun.*/) {$self->privmsg("${cfg_room}", "老雕: ☎");}
if($nick=~/Shely.*/) {$self->privmsg("${cfg_room}", "猞猁: ☎");}
my ($c,$w)=split(/\s/,$arg);
# print "$c - $w\n";
if($c eq "t") {
# my $r=`sdcv $w|sed -n '/^$/{n;N;N;N;p;q}'|tr '\n' '\t'`;
my $r=`sdcv.bash $w`; $self->privmsg("${cfg_room}", $r);}
if($c eq "a") {
my $r=`ip-ip纯真库.pl $w`;$self->privmsg("${cfg_room}", $r);}


while [ ture ]; do printf “\e[s\e[0;0H`date`\e[K\e[u”; sleep 1; done

color:
\e[s\e[0;0H\e[7m`date`\e[0m\e[K\e[u

cao aaaaa. 冲掉2照片。下次在echo里面再用->，我剁了自己的手。

☎ for z in *; do cd $z; jpg-auto-rename.bash; cd ..; done
☎ dog jpg-auto-rename.bash
p=`pwd`; d=${p##*/}; s=`ls -1|wc -l`; l=$((${#s}+1));
for i in *.jpg *.JPG *.jpeg *.JPEG; do
[ ! -f "$i" ] && continue;
j=0;
n=${d}_`printf "%0${l}d" $j`.jpg;
while [ -f """$n""" ] ;do
((j++));
n=${d}_`printf "%0${l}d" $j`.jpg;
done
echo """$i""" -move to- """$n"""
mv """$i""" """$n"""
done


☎ for i in *; do d=`exif """$i"""|g -m 1 -o "[0-9:]\{10\}"|sed 's/:/-/g'`; mkdir $d; mv """$i""" $d; done

2009-03-05 13:47:12 四 ~
☎ g set-volum ~/.fvwm/f.action
Key v A 4 Exec set-volumn-by-record.bash
2009-03-05 13:47:30 四 ~
☎ dog ~/应用/脚本/set-volumn-by-record.bash
arecord -d 2 -t wav|lame - /tmp/sound.mp3
g=`mp3gain /tmp/sound.mp3|tail -n 1|cut -d'-' -f 2`0%
amixer set PCM $g
amixer set Master $g


☎ g xtermcontrol .vimrc
” :!xtermcontrol –bg=black
☎ dog v
xbg=`xtermcontrol –get-bg`
xtermcontrol –bg=black
vim $*
xtermcontrol –bg=$xbg
t_Sb设置无效呢。t_AB也是。