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: <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