ldap filter pretty print

ldap filter pretty print

#! perl -slw
use strict;

( my $input = do{ local $/; <DATA> } ) =~ tr[\n][]d;

my $tab = 0;
$input =~ s[([()])]{
    $tab-- if $1 eq ')';
    my $modified = "\n" . ( "    " x $tab ) . $1;
    $tab++ if $1 eq '(';
    $modified;
}ge;
$input =~ s[\n\s+\)][)]g;

print $input;

__DATA__
(& (mailnickname=*) (| (&(objectCategory=person)(objectClass=
 user)(!(homeMDB=*))(!(msExchHomeServerName=*)))(&(objectCategory=person)(obje
 ctClass=user)(|(homeMDB=*)(msExchHomeServerName=*)))(&(objectCategory=person)
 (objectClass=contact))(objectCategory=group)(objectCategory=publicFolder)(obj
 ectCategory=msExchDynamicDistributionList) ))

ez