Wallpaper Rotation Script for Elementary OS

elementaryos-changebg.pl

#!/usr/bin/perl -w

# changebg.pl: Wallpaper rotation script for ElementaryOS
#
# Tested on
#  ElementaryOS v5.1.2
#
# Written by Aaron Blakely <aaron@ephasic.org>
# Copyright 2020 (C) Ephasic Software

use strict;
use warnings;

my $WPDIR = "~/Documents/Wallpapers";
my $SLEEPTIME = 30; #in seconds

# resolve ~
if ($^O eq "linux") {
  my $whoami = `whoami`; chomp $whoami;
  $WPDIR =~ s/\~/\/home\/$whoami/;
}

sub getWPList {
  my @wallpapers;

  opendir(WPS, $WPDIR) or die $!;
  while (my $file = readdir(WPS)) {
    if ($file =~ /\.png$/ || $file =~ /\.jpg$/) {
      print "Found WP: $file\n";
      push(@wallpapers, $WPDIR."/".$file);
    }
  }
  closedir(WPS);

  return @wallpapers;
}

while (1) {
  my @wps = getWPList();
  my $newwp = $wps[int(rand($#wps))];

  print "Changing background to: $newwp\n";
  system "gsettings set org.gnome.desktop.background picture-uri file://$newwp";

  print "Sleeping for $SLEEPTIME seconds\n";
  sleep($SLEEPTIME);
}