Re: Random String Generator

A slight bit of refactoring:

my @v = my ($sec, $min, $hour, $mday, $mon, 
            $year, $wday, $yday, $isdat) = localtime;

printf "Password: %s\n",
        reverse(substr(crypt(((add()) * $< / $)), rand($$)), 2,9));

sub add { my $v += $_ for @v; }
[download]

Comment on Re: Random String Generator Download Code

Replies are listed 'Best First'.
Re: Re: Random String Generator by nimdokk (Vicar) on Jun 03, 2003 at 20:00 UTC
maybe its my version of Perl, but I ended up having to run that subroutine as: `sub add { foreach (<@v>) { my $v += $_; } }` [download] "Ex libris un peut de tout"	[reply] [d/l]
•Re: Re: Re: Random String Generator by merlyn (Sage) on Jun 04, 2003 at 01:41 UTC
If a "backwards foreach" doesn't work for you, you're running 5.004 (or earlier). Time to upgrade, as a lot of good changes have happened to Perl since 15 May 1997. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re: •Re: Re: Re: Random String Generator by nimdokk (Vicar) on Jun 04, 2003 at 10:58 UTC
Ah thank you. I believe that 5.004 is in fact the version running on that box. Unfortunately, I do not control that aspect of the box but when it gets upgraded to the latest OS version, it should be a newer version of Perl. At home, my machines run a newer version. "Ex libris un peut de tout"	[reply]