@a and @b:
foreach $e (@a) { $union{$e} = 1 }
foreach $e (@b) {
if ( $union{$e} ) { $isect{$e} = 1 }
$union{$e} = 1;
}
@union = keys %union;
@isect = keys %isect;
foreach $e (@a, @b) { $union{$e}++ && $isect{$e}++ }
@union = keys %union;
@isect = keys %isect;
Forward to Use Hashes for the First Time
Back to Embrace Hashes
Up to index
Copyright © 1998, Tom Christiansen
All rights reserved.