Re^3: Parsing of LDAP entry (get_value( $var, asref => 1 );

I can't imagine that its necessary that you parse this yourself, see http://search.cpan.org/grep?cpanid=MARSCHAP&release=perl-ldap-0.57&string=change&i=1&n=1&C=0, Net::LDAP::Control::EntryChange, and employ more dumpering :)

Comment on Re^3: Parsing of LDAP entry (get_value( $var, asref => 1 );

Replies are listed 'Best First'.
Re^4: Parsing of LDAP entry (get_value( $var, asref => 1 ); by mariusz (Initiate) on Aug 01, 2013 at 10:21 UTC
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 ;)	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Parsing of LDAP entry (get_value( $var, asref => 1 );
by mariusz (Initiate) on Aug 01, 2013 at 10:21 UTC

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 ;)

[reply]
[d/l]