☎ EEXPRESS

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

This entry was posted on 星期二, 06月 23rd, 2009 at 12:42 pm and is filed under ●Fvwm标签. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.