Thats rather clever.... There is a subtle issue with extrapolating that particular idiom though. Suppose we wanted to match lines of exactly four fields, but were only interested in the first two fields of such lines: 
dog:cat:pig       <== skip, only has three fields
Amy:Ann           <== skip, only has two fields
ape:ant:bug:car   <== match this line (it has four fields)
                      but we only need to keep 'ape' and 'ant'

[download]

Tweaking the code above, we might think that this will do the trick for us: 

while (<DATA>) {
    chomp;
    (my ($first, $second) = split /:/) == 4 or next;
    print "$first $second\n";
}

__DATA__
dog:cat:pig
Amy:Ann
ape:ant:bug:car

[download]
However, that doesn't seem to work for us, nothing gets printed. In fact, try as we might, we can't construct any line at all that passes the IDIOM==4 test.

So, does anyone want to guess why IDIOM==4 is so different from IDIOM==2?

Update: As an added hint, testing for IDIOM==3 will match the 'dog:cat:pig' line....

-Blake

In reply to Re: Re: Pulling out pairs by blakem
in thread Pulling out pairs by andyw

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.