Path: utzoo!attcan!uunet!wuarchive!psuvax1!news
From: flee@shire.cs.psu.edu (Felix Lee)
Newsgroups: comp.lang.perl
Subject: Re: quasi-bug
Message-ID: <Eo50$#3@cs.psu.edu>
Date: 28 Mar 90 22:30:46 GMT
References: <1121@etnibsd.UUCP> <15290@bfmny0.UU.NET> <Etr4*$3@cs.psu.edu>
	<1990Mar28.180657.22785@iwarp.intel.com> <E-hyh#3@cs.psu.edu>
	<1990Mar28.213544.23723@iwarp.intel.com>
Sender: news@cs.psu.edu (Usenet)
Organization: Penn State Computer Science
Lines: 16

Randal Schwartz <merlyn@iwarp.intel.com> wrote:
> The while loop should read instead:
>	while (@ARGV) {
>		$_ = shift;
>	}
> to handle zero-length arguments, if you're gonna get picky. :-)

Urf.  I'm too used to Icon's notion of success and failure, and I seem
to try to apply it to perl all the time, probably because perl has a
conciseness vaguely reminiscent of Icon.  I should back off and try
not to pack things so tightly.

undef$/.open($_='>TcUENMaQ$RraE9wDKkh',$0).grep(print(substr($_, (ord)-32,
1)),split(/c\s/,join(<$_>."c\t",split(//))))
--
Felix Lee	flee@shire.cs.psu.edu	*!psuvax1!flee