ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Џа®Є®ЇмҐў …ўЈҐ­Ё©                    2:5020/400     24 May 2004  15:03:56
 To : All
 Subject : Ldap: perl vs bash
 -------------------------------------------------------------------------------- 
 

 Здравствуйте!
 
 Есть 2 тупых скрипта:
 
 # cat make_ldap_filter.pl
 
 #!/usr/bin/perl
 use Net::LDAP;
 $ldap = Net::LDAP->new('localhost') or die "$@";
 
 $ldap->bind;
 
 $mesg = $ldap->search(
      base => "dc=myserver, dc=myprovider, dc=ru",
      filter => sprintf("(&(objectClass=internetAccess) (%s=TRUE))", @ARGV)
 );
 
 $mesg->code && die $mesg->error;
 
 foreach $entry ($mesg->all_entries) {
      foreach my $value ($entry->get_value('dhcpStatements')) {
          if ($value =~ /fixed-address /) {
              print "$'\n";
          }
      }
 }
 
 $ldap->unbind;
 
 # cat make_ldap_filter.sh
 
 #!/bin/bash
 ldapsearch -LLL "(&(objectClass=internetAccess) ("$1"=TRUE))" | grep 
 fixed-address | awk '{print $3}'
 
 А вот время их выполнения:
 
 # time ./make_ldap_filter.pl allowNat
 192.168.101.15
 ...
 192.168.101.95
 2.42user 0.18system 0:03.18elapsed 81%CPU (0avgtext+0avgdata 0maxresident)k
 0inputs+0outputs (436major+833minor)pagefaults 0swaps
 
 # time ./make_ldap_filter.sh allowNat
 192.168.101.15
 ...
 192.168.101.95
 0.09user 0.04system 0:00.36elapsed 35%CPU (0avgtext+0avgdata 0maxresident)k
 0inputs+0outputs (834major+202minor)pagefaults 0swaps
 Что я сделал не так?
 
 -- 
 С уважением, Прокопьев Евгений
 
 --- ifmail v.2.15dev5.3
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Ldap: perl vs bash   Џа®Є®ЇмҐў …ўЈҐ­Ё©   24 May 2004 15:03:56   Re: Ldap: perl vs bash   Џа®Є®ЇмҐў …ўЈҐ­Ё©   26 May 2004 10:06:47   Ldap: perl vs bash   Bulat Ziganshin   09 Jun 2004 21:17:56