Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!convex!usenet
From: tchrist@convex.COM (Tom Christiansen)
Newsgroups: comp.lang.perl
Subject: Re: Manipulating strings
Message-ID: <1991May24.070032.18307@convex.com>
Date: 24 May 91 07:00:32 GMT
References: <SETZER.91May23110013@matagh.ncsu.edu> <1991May23.223356.10387@NCoast.ORG>
Sender: usenet@convex.com (news access account)
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Software Development, Richardson, TX
Lines: 21
Nntp-Posting-Host: pixel.convex.com

From the keyboard of allbery@ncoast.ORG (Brandon S. Allbery KF8NH):
:Not for iterating over multiple objects in step, but:
:
:open(A,'A');
:$/ = undef;
:@a = unpack('c*',<A>);
:close(A);
:# do the same for B, C, D
:while (($a,$b,$c,$d)=(scalar(shift(@a)),scalar(shift(@b)),scalar(shift(@c)),
:		      scalar(shift(@d))))
:{
:    # compare $a, $b, $c, $d
:}
:

How come you're casing those shifts to a scalar context?

--tom
--
Tom Christiansen		tchrist@convex.com	convex!tchrist
		"So much mail, so little time."