Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!thunder.mcrcim.mcgill.edu!snorkelwacker.mit.edu!mintaka!ogicse!uwm.edu!psuvax1!news
From: flee@cs.psu.edu (Felix Lee)
Newsgroups: comp.lang.perl
Subject: Do be do be do.
Message-ID: <ii7G7s5c@cs.psu.edu>
Date: 1 Feb 91 11:57:36 GMT
Sender: news@cs.psu.edu (Usenet)
Organization: Penn State Computer Science
Lines: 16
Nntp-Posting-Host: dictionopolis.cs.psu.edu

I spent fifteen minutes staring at this thing, wondering why it didn't
work right:
	sub put {
		local($x) = @_;
		print $x;
		$currentposition += length($x);
	}
	$currentposition = 1;
	$desiredposition = 1;
	&put(' ') while $currentposition < $desiredposition;

It prints one space rather than none.

Perl semantics are much too toxic for ordinary household use.
--
Felix Lee	flee@cs.psu.edu