Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!usc!brutus.cs.uiuc.edu!lll-winken!decwrl!orc!mipos3!iwarp.intel.com!news
From: merlyn@iwarp.intel.com (Randal Schwartz)
Newsgroups: comp.lang.perl
Subject: Re: Bug or misunderstanding?
Message-ID: <1990Feb28.015132.23974@iwarp.intel.com>
Date: 28 Feb 90 01:51:32 GMT
References: <2860@uvaarpa.virginia.edu> <1990Feb27.174836.21449@iwarp.intel.com> <7202@jpl-devvax.JPL.NASA.GOV>
Sender: news@iwarp.intel.com
Reply-To: merlyn@iwarp.intel.com (Randal Schwartz)
Organization: Stonehenge; netaccess via Intel, Beaverton, Oregon, USA
Lines: 19
In-Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)

In article <7202@jpl-devvax.JPL.NASA.GOV>, lwall@jpl-devvax (Larry Wall) writes:
| : for (split(/(.)/,"Just another Perl hacker,")) {print if $_;}
| 
| Interestingly, I had broken this here.  It told me "split loop".  So I
| unbroke it.

What??? You actually look at my signatures?  And use them for testing?
In that case, we oughta have them all in the .../t directory and make
sure that "Just another Perl hacker," gets printed 89 zillion times
for all future releases!

mkdir("/tmp/$$",0777); chdir "/tmp/$$";
grep(open(X,">$_"),"1Just","2another","3Perl","4hacker,");
print join(" ",grep(s/^.//,<*>)); chdir ".."; system "rm -rf $$";
-- 
/=Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095 ==========\
| on contract to Intel's iWarp project, Beaverton, Oregon, USA, Sol III      |
| merlyn@iwarp.intel.com ...!any-MX-mailer-like-uunet!iwarp.intel.com!merlyn |
\=Cute Quote: "Welcome to Portland, Oregon, home of the California Raisins!"=/