Re: [FWP] new real world golf hole: line wrapping (proposed and solved)

[Ronald J Kimball <rjk@linguist.dartmouth.edu>]

On Wed, Jun 07, 2000 at 02:47:21PM -0700, Yitzchak Scott-Thoennes wrote:
> In article <393E8A8C.AEBC2EC6@kasey.umkc.edu>,
> "David L. Nicol" <david@kasey.umkc.edu> wrote:
> > 	TOOLONG:
> > 
> > 	goto DONE if length <= 81;
> > 
> > 	s/^(.{1,80})\s//;
> > 	print "$1\n";
> > 
> > 	goto TOOLONG;
> > 
> > 	DONE:
> 
> Am I missing something or is that:
> 
> while (length <= 81) {
>   s/^(.{1,80})\s//;
>   print "$1\n";
> }

Well, you need to reverse the sense of the comparison, but I think you're
right, this looks like a while (actually until) loop written in BASIC.  :)

Ronald

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