Would any body know of a PERL equivalent to this PHP code?

[2ndChance]

Would any body know of a PERL equivalent to this php code that pulls a single line of data radomly from a txt file


<?
$delim = "\n";
$quotefile = "quotes.txt";
// okay, let's get going.
$fp = fopen($quotefile, "r");
$contents = fread($fp, filesize($quotefile));
$quote_arr = explode($delim,$contents);
fclose($fp);
// initiate randomness
srand((double)microtime()*1000000);
// generate random quote index
$quote_index = (rand(1, sizeof($quote_arr)) - 1);
// get quote at $quote_index and return it
$herequote = $quote_arr[$quote_index];
echo $herequote;
?>


Although this is a nice bit of randomness for php I need to impliment it in a perl script I have and well ... My brain isn't up to snuff to figure it out.

Thanks for at least taking the time to read this

[2ndChance]

and no I didn't wirte the above code I got it out of another script "random quotes" Though I use it for random link creation with a great deal of success.

[cd34]

#!/usr/bin/perl

open WL,"wordlist";
chomp(my @words = <WL> );
close WL;

print $words[rand(@words)];


something like that.

[2ndChance]

lol Thanks
often the simple things confound me
I got it now thanks again

[2ndChance]

SO I thought I would post what I did

open (RANDOMLINKS,"$data_server_path$randomlinks") || print "Could not open $data_server_path$randomlinks $! \n";
@FILE = <RANDOMLINKS>;
close(RANDOMLINKS);
$links = join('',@FILE);
@links = split(/\n/,$links);
srand(time ^ $$);
$link = rand(@links);
print "<BR>$links[$link]";
$link2 = rand(@links);
print "<BR>$links[$link2]";
$link3 = rand(@links);
print "<BR>$links[$link3]";


This will pull three random lines from a text file spit them out.
If anybody wants to use this as a randomizer by itself contact me and I will send it to you in a zip file configured so you can use it.