Hello docdurdee,

The problem with this approach is that SOMEKEY might also appear elsewhere in the hash: as a substring of another key, or as a value. The first case can be tackled by adding word boundaries to the regex: $yaml =~ s{\bSOMEKEY\b}{SomeKey}. But I don’t see any obvious solution to the second case:

#! perl
use strict;
use warnings;
use Data::Dump;
use YAML::XS;

my $hash = { Fred => 'Wilma', Frederick => 'Mary', Barney => 'Fred' };
my $yaml =   Dump $hash;
   $yaml =~  s/\bFred\b/FRED/;
   $hash =   Load $yaml;
dd $hash;

[download]

The output I (happen to?) get:

 0:26 >perl 1186_SoPW.pl
{ Barney => "FRED", Fred => "Wilma", Frederick => "Mary" }

 0:30 >

[download]

Of course, you can add a /g modifier to the substitution, but you’ll still get the value changed as well, when you don’t want it to be. :-(

Update: On second thought, I think this should work for most cases:

$yaml =~ s/(?<=\n)Fred(?=:)/FRED/g;

[download]

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

In reply to Re: Using serialized data structure to change hash key by Athanasius
in thread Using serialized data structure to change hash key by docdurdee

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.