SPUG: flip-flops

[Michael R. Wolf]

David Dyck <dcd at tc.fluke.com> writes:

> On 10 Feb 2002 at 14:47 -0500, Michael R. Wolf <MichaelRunningWolf at att.net>...:
> 
> > Note that dollar ($) means ...
> >  ... "last line" in the flip-flop.
> >
> >     $body   .= $_ if /^$/ .. $;

> I don't think this does what you want

But I think this does:

        $body   .= $_ if (/^$/ .. $);

As somebody's mother said, the supply of parenthesis in the
universe is unlimited.  Thanks for your "parser eyes"; alas,
I'm stuck on a laptop at 95% full and no room for Perl.

Thanks,
Michael

P.S. Would someone pipe this message through thes commands
    and report out confirmation?

    perl -n -e '$body   .= $_ if (/^$/ .. $);' \
            -e '$head   .= $_ if (1 .. /^$/);' \
            -e 'END{print $head, "\n", "="x40, "\n", $body;}'

-- 
Michael R. Wolf
    All mammals learn by playing!
        MichaelRunningWolf at att.net


 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
      Subscriptions; Email to majordomo at pm.org:  ACTION  LIST  EMAIL
  Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address
 For daily traffic, use spug-list for LIST ;  for weekly, spug-list-digest
     Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org