0: #!/usr/bin/perl 
1: # Plays a random file from $dir using $player.  
2: # I still have not figured a good way to quit other than killing
3: # the perl program and then the player, anybody have some good ideas?
4: # UPDATE: now properly replaces escape characters (old version replaced with space)
5: use strict;
6: my $dir = "/dosc/Music/";
7: my $player ="mpg123";
8: my ($i, @music);
9: opendir (DIR, $dir);
10: @music = readdir (DIR);
11: closedir (DIR);
12: foreach (@music) {
13:     s/([\s|&|\\|\||(|)|'|_])/\\$1/g; # Add escape characters
14: }
15: srand();
16: while (1)
17: {
18: $i = @music[int(rand(scalar(@music)))];
19:     system "$player $dir$i";
20: }