Ubuntu中文论坛

代码： 全选

#!/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

代码： 全选

#!/bin/bash
WALLPAPERDIR="/home/xxx/bin/wallpapers/"
HISTORYFILE="/home/xxx/bin/wallpapers/pagers~"
if ! [ -e $HISTORYFILE ];then
    touch $HISTORYFILE
fi
TRYONE=false
while true ;do
    ALIST=( `ls -w1 -B --ignore=*.sh $WALLPAPERDIR | cat - $HISTORYFILE | sort | uniq -u` )
    RANGE=${#ALIST[*]}
    if  [ $RANGE -gt 0 ];then
        SHOW=$(( $RANDOM % $RANGE ))
        feh --bg-scale $WALLPAPERDIR/${ALIST[$SHOW]}
        echo ${ALIST[$SHOW]} >> "$HISTORYFILE"
        exit 0 
    elif ! $TRYONE ;then
        echo -n > "$HISTORYFILE"
        TRYONE=true
    else
        exit 0 
    fi
done