i don't see a end of record marker..or you could use just the start of record marker (LOCUS?)...to process the records in 2 pass fashion. on first pass you initialize and assign a temporary hash structure, with LOCUS, DEFINITION, etc as keys and whatever remains becomes value for each such key. when you hit a new record and prior to processing that (or when EOF) process each value (still just a string) of the temporary hash into an appropriately more elaborate structure as required. then you have the option of either processing the fully fledged data structure record by record, or grow it and process according to whatever business rules at the end. this separates the logic for subfield processing (business rules) from the routine record processing on input. does away with very convoluted code anyway..code that parses input and processes record at field and subfield levels all at once
the hardest line to type correctly is: stty erase ^H

In reply to Re: Extract the matching strings by aquarium
in thread Extract the matching strings by sundeep

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.