amarok2: wiedergabeliste zufällig abspielen und wiederholen

[derRichard]

hallo!

wer die oben gesagte funktion in amarok2 (wieder) haben will, möge bitte für den bug voten. :-)

http://bugs.kde.org/show_bug.cgi?id=221798

danke,
//richard

[Aqualung]

cat file_dice.pl


eval 'exec perl -S $0 ${1+"$@"}'
if 0;
if ( ! @ARGV ) {
print STDERR "Usage: file_dice.pl <n_file> <dir> \n";
exit 1;
}
$n=$ARGV[0];
$dir=$ARGV[1];
opendir MYDIR , "$dir" or die "can't open: $dir : $1";
@allfiles = readdir MYDIR;
$nfile=$#allfiles;
closedir MYDIR;
for ($i=0; $i < $n; $i++) {
$a=int(rand($nfile));
$ALL[$i]="$allfiles[$a]\n";
}
sub backwards { $b cmp $a }
print @ALL;


scnr