Path: utzoo!attcan!uunet!inpnms!logan
From: logan@rockville.dg.com (James L. Logan)
Newsgroups: comp.lang.perl
Subject: Re: Best way to nullify an intersection
Message-ID: <604@inpnms.ROCKVILLE.DG.COM>
Date: 3 Jul 90 22:47:26 GMT
References: <601@inpnms.ROCKVILLE.DG.COM> <15631@bfmny0.BFM.COM>
Organization: Data General Telecommunications, Rockville, MD
Lines: 14

In article <15631@bfmny0.BFM.COM> tneff@bfmny0.BFM.COM (Tom Neff) writes:
# 
# 	@B=grep(!do {$x=$_; grep($x eq $_,@A);},@B);
# 

Could someone explain this construct?  I've only been using perl
for a week now...  

			-Jim
-- 
James Logan                        UUCP: uunet!inpnms!logan
Data General Telecommunications    Inet: logan@rockville.dg.com
2098 Gaither Road                 Phone: (301) 590-3198
Rockville, MD 20850