Newsgroups: comp.lang.perl
Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!think.com!zaphod.mps.ohio-state.edu!magnus.acs.ohio-state.edu!usenet.ins.cwru.edu!ncoast!allbery
From: allbery@NCoast.ORG (Brandon S. Allbery KF8NH)
Subject: Re: Manipulating strings
Reply-To: allbery@ncoast.ORG (Brandon S. Allbery KF8NH)
Organization: North Coast Public Access Un*x (ncoast)
Date: Sat, 25 May 1991 17:16:29 GMT
Message-ID: <1991May25.171629.7826@NCoast.ORG>
Followup-To: comp.lang.perl
References: <SETZER.91May23110013@matagh.ncsu.edu> <1991May23.223356.10387@NCoast.ORG> <1991May24.070032.18307@convex.com>
Lines: 17

As quoted from <1991May24.070032.18307@convex.com> by tchrist@convex.COM (Tom Christiansen):
+---------------
| :while (($a,$b,$c,$d)=(scalar(shift(@a)),scalar(shift(@b)),scalar(shift(@c)),
| :		      scalar(shift(@d))))
| 
| How come you're casing those shifts to a scalar context?
+---------------

I didn't have a Perl to test it on or a Perl manual to check (still working on
that), and I wasn't certain if the shift's would gobble too much in an array
context.

++Brandon
-- 
Me: Brandon S. Allbery			 KF8NH: DC to LIGHT!  [44.70.4.88]
Internet: allbery@NCoast.ORG		 Delphi: ALLBERY
uunet!usenet.ins.cwru.edu!ncoast!allbery
