Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: Re: Randomize lines with limited memory

by sauoq (Abbot)
on Nov 01, 2003 at 23:12 UTC ( #303853=note: print w/ replies, xml ) Need Help??

in reply to Re: Randomize lines with limited memory
in thread Randomize lines with limited memory

I'd probably use a variation on this. Read the file once saving the offset of each line. Shuffle the array of offsets. Step through the array, seeking to each offset in turn, and print the line at that offset.

Using seek() will avoid all that rewinding and reading.

By the way, you can do almost exactly this but without worrying about the nitty gritty. Use Tie::File. Just tie the file to @tied_file, shuffle the numbers 0 .. $#tied_file and print out each line in the array in shuffled order.

"My two cents aren't worth a dime.";

Comment on Re: Re: Randomize lines with limited memory

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://303853]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (4)
As of 2015-11-29 09:02 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (750 votes), past polls