perl -e 'srand(-2091643526); print chr rand 90 for (0..4)'

Replies are listed 'Best First'.
Re: One-line .sig JAPH
by japhy (Canon) on Dec 12, 2001 at 19:57 UTC
    Sadly, that's very computer-dependent.

    _____________________________________________________
    Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
    s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

      Hey, I like it.... Though it appears to be perl-version dependent as well. It works on linux with perl 5.6.1, but not with 5.00503.
      % perl5.6.1 -e 'srand(-2091643526); print chr rand 90 for (0..4)' JAPH % perl5.00503 -e 'srand(-2091643526); print chr rand 90 for (0..4)' TOPH
      Interesting that the 'PH' is the same in both...

      -Blake

        Not so great under activeperl on win32...

        P!;¢Õ♦