blob: 1d72bb637e06e4f4ca99b3bf483b92ca3aeedda3 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
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.
WWW: https://metacpan.org/release/File-Random
|
