ru.unix

 
 - RU.UNIX ----------------------------------------------------------------------
 From : Vitaly E. Lavrov <lve@cit.aanet.ru>           17 Jun 2005  10:30:57
 To : Victor Sudakov
 Subject : Re: перекодирующий ldapsearch?
 -------------------------------------------------------------------------------- 
 

 > Коллеги,
 > Hикто не слыхал о ldapsearch или другой аналогичной консольной
 > утилите, которая бы умела показывать атрибуты вида
 > cn:: 0JjQstCw0L3QvtCyINCY0LLQsNC9INCY0LLQsNC90L7QstC40Yc=
 > сразу в human readable виде?
 > Или хотя бы на ходу конвертила из base64, а с UTF-8 я как-нибудь сам
 > справлюсь.
 
 Hа перле  :) 
 
 require MIME::Base64;
 require Text::Iconv;
 my $recode;
 sub d {
  my $s=shift;
   if( $s =~ /::/ ) {
     my @l=split /::\s/,$s;
     print @l[0],":: ",$recode->convert(MIME::Base64::decode_base64($l[1])),"\n";
 } else {
     print "$s\n";
   }
 }
 
 $recode=Text::Iconv->new("UTF8", "KOI8-R");
 $recode->raise_error(0);
 
 my $lp="";
 while (<>) {
         chomp($_);
         if ( /^\s/ ) { $lp .= $_; next; }
         if ( $lp ne "" ) { d($lp); }
         $lp = $_;
 }
 d($lp);
 
 -- 
  Vitaliy E. Lavrov                             | nic-hdl: VEL1-RIPN
 
 --- FIDOGATE 4.3.6-snp8
  * Origin: St. Petersburg State University of Aerospace Instrume (2:5030/580.0)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Re: перекодирующий ldapsearch?   Vitaly E. Lavrov    17 Jun 2005 10:30:57   Re: перекодирующий ldapsearch?   Andy Shevchenko   17 Jun 2005 22:13:36