Fetch every other item in a list

[BooK]

This is not obfuscation, but it might be useful and didn't quite fit anywhere else...
If you want to get every other item in a list or array, and don't care if the order is preserved, you can use this:

@a = keys   %{{@a}}    # for even indices
@a = values %{{@a}}    # for odd  indices

This is quite quick and powerful, but alas doesn't preserve the order.

[japhy]

Also breaks on lists like ('foo', 'bar', 'foo', 'blat'). I'd suggest:

@even = @array[map 2*$_, 0..$#array/2];
@odd  = @array[map 2*$_+1, 0..$#array/2];

You can obfuscate this if you wish...

$_="goto+F.print+chop;\n=yhpaj";F1:eval

[extremely]

Blew my last vote of the day on that post, japhy. =) I was coming back to post the basically same thing in an update to my post.

--
$you = new YOU;
honk() if $you->love(perl)

[tilly]

Try the following for a strange version that you might find handy in obfuscation:

#! /usr/bin/perl
(push @odd, $_)...(push @even, $_) foreach @ARGV;
print map "$_\n", "Odd arguments:", (map "  $_", @odd),
  "\nEven arguments:", (map "  $_", @even);

Be warned that you cannot construct a useful function this way though because it remembers state from function call to function call!

[extremely]

Hmmm.. turn on "use strict;" and "-w" and try it with this array:

#!/usr/bin/perl -w
use strict;

my @list=("one", 1, "two", 2, 3, "Three", 3, "four", 5);

print join("][", keys %{{@list}})."\n";
print join("][", values %{{@list}})."\n";

This code is evil on odd sized lists, any list that may have duplicate "keys", and on the eyes. =) Good for "obfus" work where you know what your data is tho...

--
$you = new YOU;
honk() if $you->love(perl)