Winamp random m3u

[OzzyOsbourne]

Category:

Audio Related Programs

Description:

Creates a random playlist of the number of songs that you input. Edit a the $dir1 and $out vars.

# Generates a Random playlist of the length you specify...

use strict;
use File::Find;
my ($dir1, $input, @array);
&prep;
find(\&wanted, $dir1);
&outout;

#----------Sub Routines below this line---------------

sub prep {
    print "Enter the number of songs:";
    chomp ($input=<STDIN>);
    $dir1="//server/mp3share/";
}

sub wanted {
    if (/mp3$/){
        push @array, "$File::Find::name\n";
    }
    print'.';
}

sub outout{
    my $out="$dir1/upload/randlist.m3u";
    open OUT, ">$out" or die "Cannot open $out for write :$!";
    for (1..$input){
        
        my $number=int(rand $#array);
        my $result=splice @array, $number,1;
        $result=~s/\//\\/g;    
        print OUT "$result";
    }
    close $out;
}

[thraxil]

first of all, i'd avoid using global variables (yeah, it's only a small script, but it should be habit).

second, you can rewrite the:

$result=~s/\//\\/g;

as:

$result =~ s{/}{\\}g;

to eliminate LTS.

anders pearson