CUFP
bronto
<p>That's exactly it: I needed top retrieve some CNs from an Active Directory server, but one of them was encoded in Base64, since it contained an accented character. To decode it inline I quickly wrote this:</p>
<code>perl -MEncode -MMIME::Base64 -lpe 'Encode::from_to($_=decode_base64($_),"utf8","iso-8859-1")'</code>
<p>Just type in the string and press enter, it will return the decoded string in ISO-8859-1 format.</p>
<p>One could go further and write something just a bit more complicated:</p>
<code>perl -MEncode -MMIME::Base64 -lpe 'if (/::/) { ($attr,$_)=split ; Encode::from_to($_=decode_base64($_),"utf8","iso-8859-1") ; $_="$attr: $_" }'</code>
<p>that should work in the trivial cases (non-multiline-split attribute values). I used it this way:</p>
<code>
ldapsearch -x -h 10.11.12.13 -p 3268 -b dc=ourdomain,dc=com -D a_dn_allowed_to_search_and -w its_password '(manager=the_dn_of_our_boss)' cn | perl -MEncode -MMIME::Base64 -lpe 'if (/::/) { ($attr,$_)=split ; Encode::from_to($_=decode_base64($_),"utf8","iso-8859-1") ; $_="$attr: $_" }'</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-175325">
<p>Ciao!<br><tt>--bronto</tt></p>
<hr>
<blockquote><small><i>In theory, there is no difference between theory and practice. In practice, there is.</i></small></blockquote>
</div></div>