| 59 |
|
# first get all the keys we want to delete |
| 60 |
|
my @match=$self->_match(@keys); |
| 61 |
|
foreach $i ( @match ) { |
| 62 |
– |
print $i; |
| 62 |
|
splice ( @{$self->{datahash}}, $i, 1 ); |
| 63 |
|
splice ( @{$self->{datakey}}, $i, 1 ); |
| 64 |
|
} |
| 84 |
|
for ( $i=0; $i <= $#keys; $i++ ) { |
| 85 |
|
undef @matchnew; |
| 86 |
|
foreach $dn ( @matchold ){ |
| 87 |
< |
if ( $self->{datakey}[$dn][$i] eq $keys[$i] ) { |
| 88 |
< |
push @matchnew,$dn; |
| 89 |
< |
#print "match at $dn $keys[$i]\n"; |
| 91 |
< |
} |
| 87 |
> |
if ( $self->{datakey}[$dn][$i] eq $keys[$i] ) { |
| 88 |
> |
push @matchnew,$dn; |
| 89 |
> |
} |
| 90 |
|
} |
| 91 |
|
@matchold=@matchnew; |
| 92 |
|
} |
