alias find-opera-1M='find ~/.opera/cache*/ -cmin -15 -size +1000k -exec echo "----------" \; -exec ls -l {} \; -exec file {} \;'
alias find-opera-swf='find ~/.opera/cache*/ -cmin -15 -exec file {} \; |g "Flash"'
#!/usr/bin/perl
$wpdir="$ENV{HOME}/媒体/●壁纸/1280x800及以上/";
$wpconf="$ENV{HOME}/.desktop-pic-roll.rc";
$cur=`cat $wpconf`;chomp $cur;print "当前：$cur\n";
$num=-1;
chdir $wpdir;@jpg=glob "*.jpg";
for (0 .. $#jpg){
if($jpg[$_]=~/^$cur$/){
if($ARGV[0]){ #逆向
$num=$_-1;if($num<0){$num=$#jpg;}
}
else{
$num=$_+1;if($num>$#jpg){$num=0;}
}
last;
}
}
if($num<0){$num=0;}
print "新选：==$num==$jpg[$num]==\n";
`echo $jpg[$num]>$wpconf`;
`habak \'$wpdir$jpg[$num]\'`;
Mouse 4 R A Exec exec ~/应用/脚本/roll-wallpaper.pl
Mouse 5 R A Exec exec ~/应用/脚本/roll-wallpaper.pl 1
37k 放到论坛ftp了。
☎ Xephyr :1
☎ DISPLAY=:1 rox
