Hello all,

Please send me some self testing perl questions.

Many Thanks
Jagadeesh


Many Thanks
Jagadeesh

What does the following code do and why does it work (assume the arrays @A and @B exist):

my %s;
my @answer;

@s{@B} = ();

for (@A) { push(@answer, $_) unless exists $s{$item}; }

--
Don't Stand on your head - you'll get footprints in your hair
                                           http://charlieharvey.org.uk
                                              http://charlieharvey.com