Re: [TCLUG:10346] Perl question

["John J. Trammell" <trammell@nitz.hep.umn.edu>]

psp@printwareinc.com (Phil Plumbo) wrote:

> @chars = ("A" .. "Z", 0 .. 9);
> $test= join("", @chars[ map {rand @chars} (1 .. 9) ]);
>
> It gives me 9-character "random" strings, nice as you please. The weird
> thing is that they all start with "A". What's up with that?
>
> So far I've only run it on an NT system, on the MS v5.001 Perl port (my test
> server). 
> I'm in the process of setting up a Linux-based Apache server (can't wait) -
> will it behave differently there?
>

It works fine on my Linux machine.

John