devel/p5-File-Random 0.21

This module simplifies the routine job of selecting a random file. (As you can find at CGI scripts). It's done, because it's boring (and error prone), always to write something like

my @files = (<*.*>); my $randf = $files[rand @files];

or

opendir DIR, " ... " or die " ... "; my @files = grep {-f ...} (readdir DIR); closedir DIR; my $randf = $files[rand @files];

It also becomes very boring and very dangerous to write randomly selection for subdirectory searching with special check-routines. The simple standard job of selecting a random line from a file is implemented, too.