reading random lines from a text file.

[dreamstreet]

Hello,

I have a text file and it contains something like:

text1
text2
text3


I know how to open/read the file but I want to assign the variable $text to random lines from that .txt file.

All I know is how to open/read so far:

open(F,"file.txt");
$text = <F>;

any help? Thanks



d

 

[dreamstreet]

never mind..I got it.

Here's what I used:

open(f,"file.txt");
srand;
rand($.) < 1 && ($text = $_) while <f>;
# $line is the random line


d

 

[feherke]

Hi

Or take a look at the File::Tie package on CPAN :

Access the lines of a disk file via a Perl array

Feherke.

http://rootshell.be/~feherke/

 

[Annihilannic]

Hmm... this reminds me of a script I wrote in 4DOS back in the day to hurl random abuse at me instead of the boring "Bad command or file name"...

Annihilannic.