Randal L. Schwartz wrote:
: my $meat;
: $meat = sub {
: $meat = sub { real body of loop here } if $. >= 9;
: };
:
: $meat->() while <>;
:
: There. Happy?
Smiling? Yes. Happy? No.
: No more tests. And now you'll complain about the
: subroutine call. :)
Are you kidding? I barely understand it.
I'm sure it will work, but I hope I don't have to
maintain it.
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
