random folders instead of tracks

audacious-random-album.pl

#!/usr/bin/perl

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

my ($dir, $num)=@ARGV;

if (not defined $dir){
	$dir=`pwd`;
	chomp($dir);
}

my $cmd = "find \"$dir\" -type d";
my @folders = `$cmd`;
my @rfolders = shuffle @folders;

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

my $count=0;
foreach my $folder (@rfolders) {
	chomp $folder;
	my $cmd = "find \"$folder\" -maxdepth 1 -type f";
	my @songs = `$cmd`;
	foreach my $song (@songs){
	    next unless ($song =~ m/\.mp3$/) or ($song =~ m/\.ogg$/) or ($song =~ m/\.flac$/);
	    print LIST $song;
	    $count++;
	}
}

close(LIST);

if($count >0){
	system("audacious /tmp/rand_playlist.m3u &");
}