in reply to yaJAPH

If you decrease all your numbers in @order by one, you can replace the loop with print pack 'C*', @nums[@order].

You could probably also get some more obfuscation by not mentioning all numbers explicitly but using ranges such as 101..117 and picking out just the ones you need.

Replies are listed 'Best First'.
Re: Re: yaJAPH
by blakem (Monsignor) on Aug 13, 2001 at 23:15 UTC
    I like the range idea... How about leaving the @order numbers alone and using map:

    print pack 'C*', @nums[map {--$_} @order];

    [download]
    Or in my naming 
    print pack'C*',@a[map{--$_}@b];

    [download]
    Ha, compare that with the original loop!

    -Blake

[reply]
[d/l]
[select]

In Section Obfuscated Code