Uff solved:

(...)
       my $chang = &_changes($entry->get_value("changes"));
       my %changes = %$chang;

sub _changes {
        my $changesSTR = shift;
        my (%changes, @tmp);
        $changesSTR =~ s/\n/ /g;
        foreach my $element(split(/\s-\s/,$changesSTR)){
            if ($element =~ m/(replace|add|delete):\s+([^\s]*)\s*\w+\s
+*:\s*(.*)$/) {
                  my ($var1,$var2,$var3) = ($1, $2 ,$3);
                  push @tmp,$var3 ;
                  $changes{$var1}{$var2} .= "@tmp" ;
                  @tmp=undef;
             } elsif ($element =~ m/(replace|add|delete):\s+([^\s]*)$/
+){
                 $changes{$1}{$2} .= "undef" ;
             }
        }

        return \%changes;
}

[download]

Maybe solution is not pretty, but works ;)

In reply to Re^4: Parsing of LDAP entry (get_value( $var, asref => 1 ); by mariusz
in thread Parsing of LDAP entry by mariusz

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.