Help for this page

Select Code to Download


  1. or download this
    ...
#use List::Util 'shuffle';
...
#print "$_\n" for sort @playlist;
print "$_\n" for @playlist;
...
  2. or download this
    ken@titan ~/tmp/pm_11150231_dir_rand_select
$ ./rand_select_files_sample.pl
...
/home/ken/tmp/pm_11150231_dir_rand_select/inc1/j.z
/home/ken/tmp/pm_11150231_dir_rand_select/c.z
/home/ken/tmp/pm_11150231_dir_rand_select/a.x