Are the lines fixed length? Are there a fixed number of lines per "record"? Is any of this stuff indexed? Is this something that you need to do one off (or occasionally)? Does the "data base" change over time? If it changes can "records" be inserted? Why isn't this in a real database?
Without knowing the answers to any of the above here are a couple of approaches:
- do an indexing pass through the file to build a hash keyed by "person" containing the file position of the start of the record and positions of lines in the record. Seek through the file pulling out randomly selected j lines from each record as required.
- Scan through the file identifying record starts and create an array of lines within the current record. At the end of each record spit out j random lines as required from the array.
The first variant is more appropriate if you want to do this multiple times without the "data base" changing between times - keep the index. The second variant is more appropriate for one off use or if the contents of the "data base" is changing and maintaining an index is not fesable.
Update: s/lones/lines/
DWIM is Perl's answer to Gödel
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|