Thank you - worked a treat.
At 09:00 01/02/2005 -0500, Bob Showalter wrote:
Mark Martin wrote:
> Hi,
> okay - straight out of the coobook :
>
> my @different = ()
> foreach (keys %hash1)
> {
>delete $hash1{$_} unless exists $hash2$_};
>push(@this_not_that,$_) unless exists $registered{$_};
Mark Martin wrote:
> Hi,
> okay - straight out of the coobook :
>
> my @different = ()
> foreach (keys %hash1)
> {
>delete $hash1{$_} unless exists $hash2$_};
>push(@this_not_that,$_) unless exists $registered{$_};
> }
>
> easy to remove the different key from hash one and record the rem
On Feb 1, 2005, at 1:53 PM, Mark Martin wrote:
Hi,
okay - straight out of the coobook :
my @different = ()
foreach (keys %hash1)
{
delete $hash1{$_} unless exists $hash2$_};
push(@this_not_that,$_) unless exists $registered{$_};
}
easy to remove the different key from hash one and record the r
