Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sdd.hp.com!decwrl!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: perl bug: print "$#_ @_" clobbers $_[0] at start of function
Message-ID: <11571@jpl-devvax.JPL.NASA.GOV>
Date: 23 Feb 91 01:24:28 GMT
References: <11247@cae780.csi.com>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 10

Fixed.  Thanks.

: Is this portable?
: 
: $a = " Jru tankohrstec\n rlhpe,ae"; %a = (0..26,0..26); grep (print ((split(//,$a))[$_]),keys(%a))

I believe so.  Everyone uses the same hash function, and keys that small
aren't going to overflow the hash value.

Larry