Hi Nico,

I like toolic's approach better, but in the spirit of TIMTOWTDI:

my $re = qr/
    First\ Name: \s+ (.+)\n
    Last\ Name: \s+ (.+)\n
    (?:.+\n)*
    Location:\ Central\ USA\n
  /x;
while ($line=~/$re/g) {
  print "<$1> <$2>\n";
}

[download]

Note the use of the /x modifier to make the regex more readable. Also, I removed the /s modifier, so that the dot . doesn't match newlines.

I think this approach is probably a little less robust than splitting the input file on empty lines, but if you're sure of the formatting of the input files this should still work.

Hope that helps,
-- Hauke D

In reply to Re: Storing String from Line Before Regex Match by haukex
in thread Storing String from Line Before Regex Match by Nico

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.