☎ EEXPRESS

● cat w-w天气查询.pl
#!/usr/bin/perl

use Getopt::Long;
GetOptions(’1′ => \$oneline, ‘n’=>\$notify);

#$w=$ARGV[0]?$ARGV[0]:”长沙”;
#$_=`w3m -no-cookie -dump http://ipiciq.com/Weather/Default.aspx?q=$w`;
$_=`w3m -dump http://ipiciq.com/Weather/`;

s/.*?°C//s; s/•.*//s; #去掉前后的无用信息
s/\n/ /g; s/(%|°C)/\1\n/sg; #规整为每天1行
s/\ +/ /g; s/\ \/\ /\//g; # 多余的空格
s/^$//mg;
s/^/ ►/mg,s/\n//g if($oneline);
if(/网络故障/){$_=”拼音或中文城市名不正确。原提示：”.$_;}

if(! $notify){print ” “.$w.$_; exit 0;}
/当前：(.*?)\ /s; $str=$1;
my %pic=(”晴”=>”32″,”阴”=>”26″,”雨”=>”40″,”雾”=>”19″,”雪”=>”15″,);
foreach (keys %pic){$str=$_,last if($str=~/$_/);}
`notify-send -u critical -i ‘/home/exp/媒体/图标●/png/天气/$pic{$str}.png’ ‘$w ‘ \”$_\”`;

● find ~/.opera/cache*/ -cmin -100 -size +1000k -exec echo “———-” \; -exec ls -l {} \; -exec mv {} ~ \;

● mencoder -ovc lavc -lavcopts vcodec=mpeg4 -oac mp3lame opr* -o 天降美食.mpeg4

☎ g ‘display_.*_colour’ /home/exp/.config/rox.sourceforge.net/ROX-Filer/Options
<Option name=”display_sock_colour”>#ff00ff</Option>
<Option name=”display_err_colour”>#ff0000</Option>
<Option name=”display_exec_colour”>#253e2e0ce656</Option>
<Option name=”display_unkn_colour”>#f1daed1ced1c</Option>
<Option name=”display_file_colour”>#efc9eb0ceb0c</Option>
<Option name=”display_dir_colour”>#035dffff05eb</Option>
<Option name=”display_door_colour”>#ff00ff</Option>
<Option name=”display_pipe_colour”>#444444</Option>
<Option name=”display_cdev_colour”>#000000</Option>
<Option name=”display_adir_colour”>#006000</Option>
<Option name=”display_bdev_colour”>#000000</Option>

车程2小时。

漂流最快需要1小时40分钟的样子。当然是我最快。

1. 没有打开文件，搜索，并在指定位置插入行的方法。
2. if的语法，后续单条语句，也必须使用{}包括，不灵活，不简洁。
3. 内部变量，晦涩难记的，每次查手册看。应该搞一个宏替换机制，比如 $& 宏替换成 $reg_result。

☎ dog jumporexec
exit if !$ARGV[0];
my @w=`wmctrl -l -x`;
my $l,$s;
foreach (@w){
if (/$ARGV[0]/i){($l)=split(" ");
$s=`xwininfo -id $l`;
if($s=~/IsViewable/){
`wmctrl -i -r $l -b add,shaded`;
}
else{
`wmctrl -i -a $l`;
}
}
}
if(!$l){`$ARGV[0] &`;}


IndianRed4 SlateGray DarkGreen tan4 blue4

 2 ########################

 3 # 开关鼠标穿越

 4 SetEnv scroll 1

 5 DestroyFunc toggle-scroll

 6 AddToFunc toggle-scroll

 7 + I Test (EnvMatch scroll 0) SetEnv scroll 1

 8 + I TestRc (NoMatch) SetEnv scroll 0

 9 + I TestRc (Match) Exec exec bash -c "export DISPLAY=:0 && notify-send -u critical -t 1000 -i /home/exp/媒体/●图标/png/Cubic\ Jaguar.png  桌面漫游 开启"

10 + I EdgeThickness $[scroll]