On Fri, Jan 30, 2004 at 10:33:27AM -0500, Jeff 'japhy' Pinyan wrote:
> sub array_diff {
> my ($first, $second) = @_;
> my %diff = map { "@$_" => 1 } @$second;
> return [ map !$diff{"@$_"}, @$first ];
> }
amended to:
return [ grep !$diff{"@$_"}, @$first ];
(for the benefit of anyone else looking at this), and it works a charm
(with the really minor exception of being an array too deep, but that is
easy fixed.)
cheers,
--
Robin <[EMAIL PROTECTED]> JabberID: <[EMAIL PROTECTED]>Hostes alienigeni me abduxerunt. Qui annus est? PGP Key 0x776DB663 Fingerprint=DD10 5C62 1E29 A385 9866 0853 CD38 E07A 776D B663
pgp00000.pgp
Description: PGP signature
