May 26, 2018

Perl module for random selecting of a file

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];


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 http//