Re: [FWP] odd thing from #perl a few moments ago

[Peter Scott <Peter@PSDT.com>]

At 11:55 PM 11/18/99 -0800, Randal L. Schwartz wrote:
>Solution, worthy of FWP:
>
>     @ARGV = qw(/tmp/foo.txt); # where data was
>     $n = 0;
>     $block[$n += /^\S/] .= $_ while <>;
>     @interesting = grep /interesting/, @block;

=:-O

>     <jerji> I don't think I've ever seen so much functionality crammed
>     into so few characters.

You have this thing against typing, don't you Randal? :-)

This problem made me wish that $/ could be a regex...



--
Peter Scott
Pacific Systems Design Technologies


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe