Data::Rmap - Example 1

data-rmap-example

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use Data::Rmap ':all';

my $rh_config = {
  convoluted => [
    'configuration',
    'data',
    'containing',
    {
      username => 'and',
      password => 'secret1'
    } 
  ],
  password => 'secret2'
};

my $data = rmap_to {
  foreach my $key (keys(%$_)) {
    if ($key eq 'password') {
      $_->{password} = '*** CENSORED ***';
    }
  }
} HASH, $rh_config;

print Dumper $rh_config;

=head2 The output

$VAR1 = {
          'password' => '*** CENSORED ***',
          'convoluted' => [
                            'configuration',
                            'data',
                            'containing',
                            {
                              'password' => '*** CENSORED ***',
                              'username' => 'and'
                            }
                          ]
        };

=cut