Re^4: File::Random module (McA)

Replies are listed 'Best First'.
Re^5: File::Random module (McA) by tobyink (Canon) on Apr 02, 2013 at 09:32 UTC
Fairly easily... `use PIR; my @files = PIR->new->file->all($some_dir); printf "Random file is: %s\n", $files[rand @files];` [download] `package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name`	[reply] [d/l]
Re^6: File::Random module (McA) by McA (Priest) on Apr 02, 2013 at 09:42 UTC
Thank you for the snippet (++). Could you prove on Windows? McA	[reply]
Re^7: File::Random module (McA) by gautamparimoo (Beadle) on Apr 02, 2013 at 09:50 UTC
@tobyink That was not what i meant by random.. This think can be easily done the same way as u did by find(). Through random I wanted to see the random file as it is ie dont wanna create a array first and then select random files from it. Rather traverse the drive such that i get random files to process while traversing.. Any ideas? One machine can do the work of fifty ordinary men. No machine can do the work of one extraordinary man. -Elbert Hubbard	[reply]
Re^8: File::Random module (McA) by tobyink (Canon) on Apr 02, 2013 at 16:17 UTC
Re^5: File::Random module (McA) by McA (Priest) on Apr 02, 2013 at 09:18 UTC
Hi, I just wanted to spend some more time to help you with this question, but as I tried to install `Path::Iterator::Rule` (I'm aware of the module name) on Windows (Strawberry Perl) I got errors from tests. You guess it: Concerning path/drive letter seperator. Sorry, I can't help you at the moment even being interested. UPDATE: David made an update of the package. Look at Re^5: File::Random module (Path::Iterator::Rule). McA	[reply] [d/l]


"be consistent"
	PerlMonks