Referencing Perl

This blog is created to share perl resources all round the world and to explore the same.

Name:
Location: Chennai, TamilNadu, India

A Computer Freak, interested in programming open source

Wednesday, March 30, 2005

Removing List of things from list of things

my @list = qw/1 2 3/;
%temp=();
my @stoplist = qw/1 2/;
@temp{@list} = ();
delete @temp{@stoplist};
print keys %temp;
--prasanna.k

1 Comments:

Anonymous pkk said...

this seems simpler

($a ,$b) = ($b,$a);

5:20 AM  

Post a Comment

<< Home