Linuxでランダムに壁紙を変更するスクリプト書いた

いろいろソフトとかあるみたいだけどスクリプトでやってみる

#!/usr/bin/perl
use strict;
use warnings;
##################################
# ランダムに壁紙を変更するスクリプト
##################################
my $WALLPAPER_DIR=shift;
##################################

chdir $WALLPAPER_DIR or die $!;
my @pic_lst=(<*.jpg>,<*.png>);
my $random_num=int rand(scalar @pic_lst);
system "hsetroot -full $pic_lst[$random_num]" and die $!;
このスクリプトをrandom_wallpaper.plとして保存した
.xsessionrcに書いておけばOK
while true
do
/usr/local/bin/random_wallpaper.pl /jitaku/local/pic/Linux_wallpaper/ || exit
sleep 30m
done &

参考リンク
ペンギンの杜 〜 Linux ソフト集 〜アミューズメント/壁紙
美女LinuxをUbuntu(GNOME)の壁紙にする

参考記事
xsessionrcのプロセス制御