audacious-random-album.pl

#!/usr/bin/perl

use strict;
use List::Util qw(shuffle);

my $cmd = "find \"/home/music\" -type f";
my @files = `$cmd`;
my @songs = shuffle @files;

open(LIST, ">", "/var/tmp/rand_playlist.m3u");

foreach my $song (@songs) {
    next unless ($song =~ m/\.mp3$/) or ($song =~ m/\.ogg$/);
    print LIST $song;
}

close(LIST);

system("audacious /tmp/rand_playlist.m3u &");