2 |
## $Id$ |
## $Id$ |
3 |
## --------------------------------------------------------------------------- |
## --------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.8 2003/02/09 05:10:56 joko |
6 |
|
## + minor update |
7 |
|
## |
8 |
## Revision 1.7 2003/01/19 03:26:59 joko |
## Revision 1.7 2003/01/19 03:26:59 joko |
9 |
## + added 'sub deep_copy' - refactored from libp |
## + added 'sub deep_copy' - refactored from libp |
10 |
## + add 'sub merge' - exported from CPAN's 'Hash::Merge' |
## + add 'sub merge' - exported from CPAN's 'Hash::Merge' |
58 |
use Data::Transform::Encode qw( var_utf2iso var2utf8 scalar2utf8 ); |
use Data::Transform::Encode qw( var_utf2iso var2utf8 scalar2utf8 ); |
59 |
|
|
60 |
use Hash::Merge qw( merge ); |
use Hash::Merge qw( merge ); |
|
#use libp qw( deep_copy ); |
|
61 |
use Iterate; |
use Iterate; |
62 |
|
|
63 |
sub var_NumericalHashToArray { |
sub var_NumericalHashToArray { |
335 |
} else { |
} else { |
336 |
my $val = getStructSlotByStringyAddress($data, \@indexstack); |
my $val = getStructSlotByStringyAddress($data, \@indexstack); |
337 |
|
|
338 |
print Dumper($options); |
#print Dumper($options); |
339 |
my $field_target = $field; |
my $field_target = $field; |
340 |
if (my $pattern = $options->{pattern_strip_key}) { |
if (my $pattern = $options->{pattern_strip_key}) { |
341 |
print "pattern: $pattern", "\n"; |
print "pattern: $pattern", "\n"; |