ALT Linux Community general discussions
 help / color / mirror / Atom feed
* [Comm] Ldap scripting: bash vs perl
@ 2004-05-24 10:07 Eugene Prokopiev
  2004-05-24 10:10 ` Alexey Morsov
                   ` (4 more replies)
  0 siblings, 5 replies; 22+ messages in thread
From: Eugene Prokopiev @ 2004-05-24 10:07 UTC (permalink / raw)
  To: community

Здравствуйте!

Есть 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


Что я сделал не так?

-- 
С уважением, Прокопьев Евгений



^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-24 10:07 [Comm] Ldap scripting: bash vs perl Eugene Prokopiev
@ 2004-05-24 10:10 ` Alexey Morsov
  2004-05-24 10:36   ` Eugene Prokopiev
  2004-05-24 10:22 ` Klimchev Konstantin
                   ` (3 subsequent siblings)
  4 siblings, 1 reply; 22+ messages in thread
From: Alexey Morsov @ 2004-05-24 10:10 UTC (permalink / raw)
  To: community


Eugene Prokopiev wrote:
> Здравствуйте!
> 
> Есть 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
> 
> 
> Что я сделал не так?
А что вас не устраивает? Вы же не ждете от большого Perl той же 
прыти как от куцего shell?
> 

-- 
Всего наилучшего,
Системный Администратор ЗАО "ИК "РИКОМ-ТРАСТ"
Алексей Морсов
http://www.ricom.ru
http://www.fondmarket.ru


^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-24 10:07 [Comm] Ldap scripting: bash vs perl Eugene Prokopiev
  2004-05-24 10:10 ` Alexey Morsov
@ 2004-05-24 10:22 ` Klimchev Konstantin
  2004-05-24 10:29   ` Eugene Prokopiev
  2004-05-25  7:43 ` Klimchev Konstantin
                   ` (2 subsequent siblings)
  4 siblings, 1 reply; 22+ messages in thread
From: Klimchev Konstantin @ 2004-05-24 10:22 UTC (permalink / raw)
  To: community

On Mon, 24 May 2004 14:07:13 +0400
Eugene Prokopiev <john@rmts.donpac.ru> wrote:

> Что я сделал не так?

есть еще python. Интересно, что он покажет у Вас.

-- 
Best Regards, Konstantin Klimchev 
(mailto:koka@atvc.ru    jabber:koka@jabber.atvc.ru)
ATK-Internet ISP, Arkhangelsk, Russia


^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-24 10:22 ` Klimchev Konstantin
@ 2004-05-24 10:29   ` Eugene Prokopiev
  2004-05-24 10:45     ` Alexey Morsov
  2004-05-24 11:22     ` Klimchev Konstantin
  0 siblings, 2 replies; 22+ messages in thread
From: Eugene Prokopiev @ 2004-05-24 10:29 UTC (permalink / raw)
  To: community

Klimchev Konstantin пишет:

> On Mon, 24 May 2004 14:07:13 +0400
> Eugene Prokopiev <john@rmts.donpac.ru> wrote:
> 
> 
>>Что я сделал не так?
> 
> 
> есть еще python. Интересно, что он покажет у Вас.

а пример того же на питоне можно? А то сам долго ковыряться буду.

Беда в том, что не знаю я не перла, ни питона :(

-- 
С уважением, Прокопьев Евгений



^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-24 10:10 ` Alexey Morsov
@ 2004-05-24 10:36   ` Eugene Prokopiev
  2004-05-24 11:06     ` Mike Lykov
  0 siblings, 1 reply; 22+ messages in thread
From: Eugene Prokopiev @ 2004-05-24 10:36 UTC (permalink / raw)
  To: community

Alexey Morsov пишет:

>> Что я сделал не так?
> 
> А что вас не устраивает? Вы же не ждете от большого Perl той же прыти 
> как от куцего shell?

Вообще-то ждал. Хотя бы потому, что не будут задействованы grep и awk.

А выходит, что я сравнивал интерпретатор Perl и откомпилированный 
бинарник ldapsearch. Привык, что тормоза бывают только на сервере, а 
клиента можно лепить на чем угодно - получается, что с ldap это не так?

-- 
С уважением, Прокопьев Евгений



^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-24 10:29   ` Eugene Prokopiev
@ 2004-05-24 10:45     ` Alexey Morsov
  2004-05-24 10:59       ` Eugene Prokopiev
  2004-05-24 11:22     ` Klimchev Konstantin
  1 sibling, 1 reply; 22+ messages in thread
From: Alexey Morsov @ 2004-05-24 10:45 UTC (permalink / raw)
  To: community


Eugene Prokopiev wrote:

> Klimchev Konstantin пишет:
> 
>> On Mon, 24 May 2004 14:07:13 +0400
>> Eugene Prokopiev <john@rmts.donpac.ru> wrote:
>>
>>
>>> Что я сделал не так?
>>
>>
>>
>> есть еще python. Интересно, что он покажет у Вас.
> 
> 
> а пример того же на питоне можно? А то сам долго ковыряться буду.
> 
> Беда в том, что не знаю я не перла, ни питона :(
Если вам нужна скорость выполнения - тогда однозначно c/c++ - все 
интерпретаторы медленее будут (в данном уж контекстет точно)...
Perl хорошо когда надо быстро сляпать автомат дял поточно 
обработки текстовой нформации... писать на нем что-либо еще можно 
- но уже не так эффективно. Это моё ИМХО.
> 

-- 
Всего наилучшего,
Системный Администратор ЗАО "ИК "РИКОМ-ТРАСТ"
Алексей Морсов
http://www.ricom.ru
http://www.fondmarket.ru


^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-24 10:45     ` Alexey Morsov
@ 2004-05-24 10:59       ` Eugene Prokopiev
  0 siblings, 0 replies; 22+ messages in thread
From: Eugene Prokopiev @ 2004-05-24 10:59 UTC (permalink / raw)
  To: community

Alexey Morsov пишет:

>> а пример того же на питоне можно? А то сам долго ковыряться буду.
>>
>> Беда в том, что не знаю я не перла, ни питона :(
> 
> Если вам нужна скорость выполнения - тогда однозначно c/c++ - все 
> интерпретаторы медленее будут (в данном уж контекстет точно)...

В общем случае это очевидно, но в данном конкретном такая разница меня 
просто потрясла ...

Я уже говорил, что прывык к тормозам движка БД, по сравнению с которыми 
будет ли клиент интерпретироваться, или будет ли это бинарник - неважно.

> Perl хорошо когда надо быстро сляпать автомат дял поточно обработки 
> текстовой нформации... писать на нем что-либо еще можно - но уже не так 
> эффективно. Это моё ИМХО.

Это как раз тот случай. C/C++ здесь не нужен.


-- 
С уважением, Прокопьев Евгений



^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-24 10:36   ` Eugene Prokopiev
@ 2004-05-24 11:06     ` Mike Lykov
  2004-05-24 11:10       ` Eugene Prokopiev
  0 siblings, 1 reply; 22+ messages in thread
From: Mike Lykov @ 2004-05-24 11:06 UTC (permalink / raw)
  To: community

В сообщении от Понедельник 24 Май 2004 15:36 Eugene Prokopiev написал:

> А выходит, что я сравнивал интерпретатор Perl и откомпилированный
> бинарник ldapsearch.

Причем не только интерпретатор , а еще и скорость загрузки (а это значительное 
время) и работы модуля.
Кстати, perl - не чистый интерпретатор.
 
> . Привык, что тормоза бывают только на сервере, а
> клиента можно лепить на чем угодно - получается, что с ldap это не так?

Нифига из этой фразы не понял. какая-то бессмыслица ;)

-- 
Mike Lykov
Системный администратор ПКК "Весна", Самара



^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-24 11:06     ` Mike Lykov
@ 2004-05-24 11:10       ` Eugene Prokopiev
  0 siblings, 0 replies; 22+ messages in thread
From: Eugene Prokopiev @ 2004-05-24 11:10 UTC (permalink / raw)
  To: community

>>. Привык, что тормоза бывают только на сервере, а
>>клиента можно лепить на чем угодно - получается, что с ldap это не так?
> 
> 
> Нифига из этой фразы не понял. какая-то бессмыслица ;)

см. ниже

может там я сформулировал удачней ;)

-- 
С уважением, Прокопьев Евгений



^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-24 10:29   ` Eugene Prokopiev
  2004-05-24 10:45     ` Alexey Morsov
@ 2004-05-24 11:22     ` Klimchev Konstantin
  2004-05-24 11:32       ` Eugene Prokopiev
  1 sibling, 1 reply; 22+ messages in thread
From: Klimchev Konstantin @ 2004-05-24 11:22 UTC (permalink / raw)
  To: community

On Mon, 24 May 2004 14:29:44 +0400
Eugene Prokopiev <john@rmts.donpac.ru> wrote:

> а пример того же на питоне можно? А то сам долго ковыряться буду.

===========================
import ldap

ldapConnection = ldap.open("localhost")

baseDN = "dc=myserver, dc=myprovider, dc=ru"
searchScope = ldap.SCOPE_SUBTREE

out = ldapConnection.search_s(baseDN, searchScope, "(&(objectclass=internetAccess)(allowNat=TRUE))"), 'dhcpStatements')
print map(lambda x: x[1]['dhcpStatements'][0], out)
================================

Вроде так, если я правильно понял по представленному schema.

ЗЫ. 
в сизифе: python-module-ldap, 
для ALTM22 python-ldap могу выслать


-- 
Best Regards, Konstantin Klimchev 
(mailto:koka@atvc.ru    jabber:koka@jabber.atvc.ru)
ATK-Internet ISP, Arkhangelsk, Russia


^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-24 11:22     ` Klimchev Konstantin
@ 2004-05-24 11:32       ` Eugene Prokopiev
  0 siblings, 0 replies; 22+ messages in thread
From: Eugene Prokopiev @ 2004-05-24 11:32 UTC (permalink / raw)
  To: community

Klimchev Konstantin пишет:

> On Mon, 24 May 2004 14:29:44 +0400
> Eugene Prokopiev <john@rmts.donpac.ru> wrote:
> 
> 
>>а пример того же на питоне можно? А то сам долго ковыряться буду.
> 
> 
> ===========================
> import ldap
> 
> ldapConnection = ldap.open("localhost")
> 
> baseDN = "dc=myserver, dc=myprovider, dc=ru"
> searchScope = ldap.SCOPE_SUBTREE
> 
> out = ldapConnection.search_s(baseDN, searchScope, "(&(objectclass=internetAccess)(allowNat=TRUE))"), 'dhcpStatements')
> print map(lambda x: x[1]['dhcpStatements'][0], out)
> ================================
> 
> Вроде так, если я правильно понял по представленному schema.
> 
> ЗЫ. 
> в сизифе: python-module-ldap, 
> для ALTM22 python-ldap могу выслать

высылайте, жду

-- 
С уважением, Прокопьев Евгений



^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-24 10:07 [Comm] Ldap scripting: bash vs perl Eugene Prokopiev
  2004-05-24 10:10 ` Alexey Morsov
  2004-05-24 10:22 ` Klimchev Konstantin
@ 2004-05-25  7:43 ` Klimchev Konstantin
  2004-05-25  8:21   ` Mike Lykov
  2004-05-25 10:43 ` [Comm] " Alexey Tourbin
  2004-05-26  6:06 ` [Comm] " Eugene Prokopiev
  4 siblings, 1 reply; 22+ messages in thread
From: Klimchev Konstantin @ 2004-05-25  7:43 UTC (permalink / raw)
  To: community

Добрый день!

Попробовал и я (доступ к удаленной машине, в LDAP'е 3500 записей):

Сразу оговариваюсь, что пытался свести к минимому операции с выборкой на локальной машине

====================================================================

1) шелл

time ldapsearch -LLL -hнекий_хост -x -wнекий_пароль  -Dcn=manager,ou=mail,o=ATK-INET -bou=mail,o=ATK-INET "(&(objectclass=mailAccount)(accountStatus=blocked)(mail=ar*))" dn

real    0m0.149s
user    0m0.010s
sys     0m0.000s

===================================================================

2) python

#!/usr/bin/env python
import ldap                                                           
ldapConnection = ldap.open('некий_хост')
ldapConnection.simple_bind_s('cn=manager,ou=mail,o=ATK-INET', 'некий_пароль')
baseDN = 'ou=mail,o=ATK-INET'
searchScope = ldap.SCOPE_SUBTREE                                      
_result = ldapConnection.search_s(baseDN, searchScope, '(&(objectclass=mailAccount)(accountStatus=blocked)(mail=ar*))', ['dn'])
print _result                                                         
ldapConnection.unbind_s()

real    0m0.140s
user    0m0.060s
sys     0m0.010s
===========================================================




-- 
Best Regards, Konstantin Klimchev 
(mailto:koka@atvc.ru    jabber:koka@jabber.atvc.ru)
ATK-Internet ISP, Arkhangelsk, Russia


^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-25  7:43 ` Klimchev Konstantin
@ 2004-05-25  8:21   ` Mike Lykov
  2004-05-25  8:31     ` Klimchev Konstantin
  0 siblings, 1 reply; 22+ messages in thread
From: Mike Lykov @ 2004-05-25  8:21 UTC (permalink / raw)
  To: community

В сообщении от Вторник 25 Май 2004 12:43 Klimchev Konstantin написал:

> 1) шелл

это не шелл, это бинарник ldapsearch, который, насколько мне помнится, идет в 
составе openldap ? шелл тут вряд ли влияет..

> 2) python
> #!/usr/bin/env python
> import ldap

а здесь  - не питон, а модуль для связи с ldap ?

а где же перл с модулем net::ldap ? а может mozilla::ldap ?

-- 
Mike Lykov
Системный администратор ПКК "Весна", Самара



^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-25  8:21   ` Mike Lykov
@ 2004-05-25  8:31     ` Klimchev Konstantin
  2004-05-25  8:51       ` Mike Lykov
  0 siblings, 1 reply; 22+ messages in thread
From: Klimchev Konstantin @ 2004-05-25  8:31 UTC (permalink / raw)
  To: community

On Tue, 25 May 2004 13:21:16 +0500
Mike Lykov <combr@vesna.ru> wrote:

> В сообщении от Вторник 25 Май 2004 12:43 Klimchev Konstantin написал:
> 
> > 1) шелл
> 
> это не шелл, это бинарник ldapsearch, который, насколько мне помнится, идет в 
> составе openldap ? шелл тут вряд ли влияет..
> 

абсолютно правы, но влияет - вывод на экран - операция на общем фоне довольно тормозная.

> > 2) python
> > #!/usr/bin/env python
> > import ldap
> 
> а здесь  - не питон, а модуль для связи с ldap ?
> 

да, Вы правы и тут - там бинарная библиотека.
Это я сам себе PR устраиваю :) (python-module-ldap - моё)

> а где же перл с модулем net::ldap ? 

perl'ом владею на уровне 2+2, так что ... :(

> а может mozilla::ldap ?

здесь надо почитать.

> 
> -- 
> Mike Lykov
> Системный администратор ПКК "Весна", Самара
> 
> _______________________________________________
> Community mailing list
> Community@altlinux.ru
> https://lists.altlinux.ru/mailman/listinfo/community
> 


-- 
Best Regards, Konstantin Klimchev 
(mailto:koka@atvc.ru    jabber:koka@jabber.atvc.ru)
ATK-Internet ISP, Arkhangelsk, Russia


^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-25  8:31     ` Klimchev Konstantin
@ 2004-05-25  8:51       ` Mike Lykov
  2004-05-25  8:58         ` Klimchev Konstantin
  0 siblings, 1 reply; 22+ messages in thread
From: Mike Lykov @ 2004-05-25  8:51 UTC (permalink / raw)
  To: community

В сообщении от Вторник 25 Май 2004 13:31 Klimchev Konstantin написал:

> > это не шелл, это бинарник ldapsearch, который, насколько мне помнится,
> > идет в составе openldap ? шелл тут вряд ли влияет..
> абсолютно правы, но влияет - вывод на экран - операция на общем фоне
> довольно тормозная.

А зачем вообще что-то выводить на экран?... Я думаю, результаты во всех 
случаях надо сразу отправлять в /dev/null

> Это я сам себе PR устраиваю :) (python-module-ldap - моё)

да сколько угодно, но я все же на перле.. ;))

> > а где же перл с модулем net::ldap ?
> perl'ом владею на уровне 2+2, так что ... :(

Не сильно сложно, если вы уже в курсе, что такое ldap  ;)

http://search.cpan.org/~gbarr/perl-ldap-0.31/lib/Net/LDAP.pod

> > а может mozilla::ldap ?
> здесь надо почитать.

Это тоже перловый модуль

http://search.cpan.org/src/LEIFHED/perldap-1.4/README


-- 
Mike Lykov
Системный администратор ПКК "Весна", Самара



^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-25  8:51       ` Mike Lykov
@ 2004-05-25  8:58         ` Klimchev Konstantin
  0 siblings, 0 replies; 22+ messages in thread
From: Klimchev Konstantin @ 2004-05-25  8:58 UTC (permalink / raw)
  To: community

On Tue, 25 May 2004 13:51:22 +0500
Mike Lykov <combr@vesna.ru> wrote:

> 
> А зачем вообще что-то выводить на экран?... Я думаю, результаты во всех 
> случаях надо сразу отправлять в /dev/null

все равно, задействуются функции, не иеющие отношения к выборке.

> > > а где же перл с модулем net::ldap ?
> > perl'ом владею на уровне 2+2, так что ... :(
> 
> Не сильно сложно, если вы уже в курсе, что такое ldap  ;)
> 
> http://search.cpan.org/~gbarr/perl-ldap-0.31/lib/Net/LDAP.pod
> 
> > > а может mozilla::ldap ?
> > здесь надо почитать.
> 
> Это тоже перловый модуль
> 
> http://search.cpan.org/src/LEIFHED/perldap-1.4/README

нет, тут уже надо знать про 2*2, это для меня трудно :) 
Не лежит у меня душа к perl'у.

-- 
Best Regards, Konstantin Klimchev 
(mailto:koka@atvc.ru    jabber:koka@jabber.atvc.ru)
ATK-Internet ISP, Arkhangelsk, Russia


^ permalink raw reply	[flat|nested] 22+ messages in thread

* [Comm] Re: Ldap scripting: bash vs perl
  2004-05-24 10:07 [Comm] Ldap scripting: bash vs perl Eugene Prokopiev
                   ` (2 preceding siblings ...)
  2004-05-25  7:43 ` Klimchev Konstantin
@ 2004-05-25 10:43 ` Alexey Tourbin
  2004-05-26  6:06 ` [Comm] " Eugene Prokopiev
  4 siblings, 0 replies; 22+ messages in thread
From: Alexey Tourbin @ 2004-05-25 10:43 UTC (permalink / raw)
  To: community

[-- Attachment #1: Type: text/plain, Size: 146 bytes --]

On Mon, May 24, 2004 at 02:07:13PM +0400, Eugene Prokopiev wrote:
> Что я сделал не так?

dprofpp?

> -- 
> С уважением, Прокопьев Евгений

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-24 10:07 [Comm] Ldap scripting: bash vs perl Eugene Prokopiev
                   ` (3 preceding siblings ...)
  2004-05-25 10:43 ` [Comm] " Alexey Tourbin
@ 2004-05-26  6:06 ` Eugene Prokopiev
  2004-05-26  6:14   ` Klimchev Konstantin
  4 siblings, 1 reply; 22+ messages in thread
From: Eugene Prokopiev @ 2004-05-26  6:06 UTC (permalink / raw)
  To: community

Не смог удержаться и проделал то же самое на php и ruby. Вот что 
получилось (приведены все варианты):

# time ./make_ldap_filter.sh > /dev/null
0.05user 0.03system 0:00.08elapsed 89%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (825major+194minor)pagefaults 0swaps

# time ./make_ldap_filter.php > /dev/null
0.63user 0.51system 0:04.46elapsed 25%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (8903major+196minor)pagefaults 0swaps

# time ./make_ldap_filter.rb > /dev/null
bind: Success
0.37user 0.04system 0:02.21elapsed 18%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (488major+211minor)pagefaults 0swaps

# time ./make_ldap_filter.py > /dev/null
0.40user 0.10system 0:01.70elapsed 29%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (720major+349minor)pagefaults 0swaps

# time ./make_ldap_filter.pl allowNat > /dev/null
2.43user 0.13system 0:02.57elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (437major+833minor)pagefaults 0swaps

Ну а вот код:

# cat ./make_ldap_filter.sh
#!/bin/bash
ldapsearch -LLL "(&(objectClass=internetAccess) ("$1"=TRUE))" | grep 
fixed-address | awk '{print $3}'

# cat ./make_ldap_filter.php
#!/usr/bin/php
<?php
$ds=ldap_connect("localhost");
if ($ds) {
     $r=ldap_bind($ds);
     $sr=ldap_search($ds,"dc=myserver, dc=myprovider, dc=ru", 
"allowNat=TRUE");
     $info = ldap_get_entries($ds, $sr);
     for ($i=0; $i<$info["count"]; $i++) {
         echo "Host is: ". $info[$i]["cn"][0] ."\n";
     }
     ldap_close($ds);
}
?>

# cat ./make_ldap_filter.rb
#!/usr/bin/ruby
require "ldap"
LDAP::Conn.new("localhost").bind{|conn|
   conn.perror("bind")
   begin
     conn.search("dc=myserver, dc=myprovider, dc=ru",
                 LDAP::LDAP_SCOPE_SUBTREE,
                 "(objectclass=*)"){|e|
       p e.vals("cn")
       p e.to_hash()
     }
   rescue LDAP::ResultError => msg
     $stderr.print(msg)
   end
}

# cat ./make_ldap_filter.py
#!/usr/bin/env python
import ldap, re
try:
   ldapConnection = ldap.open('myserver.myprovider.ru')
   ldapConnection.simple_bind_s('', '')
except ldap.LDAPError, e:
   print e
out = []
baseDN = 'cn=Network,dc=myserver,dc=myprovider,dc=ru'
searchScope = ldap.SCOPE_SUBTREE
_result = ldapConnection.search_s(baseDN, searchScope, 
'(&(objectclass=internetAccess)(allowNat=TRUE))', ['dhcpStatements'])
if _result:
   out = filter(lambda x: re.search('fixed-address.*', x), map(lambda x: 
x[1]['dhcpStatements'][0], _result))
print out
ldapConnection.unbind_s()

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

Еще одним тормозом оказался php ;)
Но тут уже дело в том, что завершение работы скрипта и возврат к # 
происходит слишком медленно, сам поиск (на глаз) вроде не медленнее прочих.

-- 
С уважением, Прокопьев Евгений



^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-26  6:06 ` [Comm] " Eugene Prokopiev
@ 2004-05-26  6:14   ` Klimchev Konstantin
  2004-05-26  8:04     ` Eugene Prokopiev
  0 siblings, 1 reply; 22+ messages in thread
From: Klimchev Konstantin @ 2004-05-26  6:14 UTC (permalink / raw)
  To: community

On Wed, 26 May 2004 10:06:26 +0400
Eugene Prokopiev <john@rmts.donpac.ru> wrote:

> Не смог удержаться и проделал то же самое на php и ruby. Вот что 
> получилось (приведены все варианты):

Ну на самом деле здесь не совсем время выборки, а еще время локальной обработки, а оно заметно выше.

например, в примере (что я выставлял) замена конструкции 

ldapsearch -LLL -hнекий_хост -x -wнекий_пароль  -Dcn=manager,ou=mail,o=ATK-INET -bou=mail,o=ATK-INET "(&(objectclass=mailAccount)(accountStatus=blocked)(mail=ar*))" dn mail 

на 
ldapsearch -LLL -hнекий_хост -x -wнекий_пароль  -Dcn=manager,ou=mail,o=ATK-INET -bou=mail,o=ATK-INET "(&(objectclass=mailAccount)(accountStatus=blocked))" dn mail | grep "mail: ar" 

увеличивает время работы скрипта почти в 10 раз.

-- 
Best Regards, Konstantin Klimchev 
(mailto:koka@atvc.ru    jabber:koka@jabber.atvc.ru)
ATK-Internet ISP, Arkhangelsk, Russia


^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-26  6:14   ` Klimchev Konstantin
@ 2004-05-26  8:04     ` Eugene Prokopiev
  2004-05-26  8:20       ` Klimchev Konstantin
  0 siblings, 1 reply; 22+ messages in thread
From: Eugene Prokopiev @ 2004-05-26  8:04 UTC (permalink / raw)
  To: community

Klimchev Konstantin пишет:
> On Wed, 26 May 2004 10:06:26 +0400
> Eugene Prokopiev <john@rmts.donpac.ru> wrote:
> 
> 
>>Не смог удержаться и проделал то же самое на php и ruby. Вот что 
>>получилось (приведены все варианты):
> 
> 
> Ну на самом деле здесь не совсем время выборки, а еще время локальной обработки, а оно заметно выше.
> 
> например, в примере (что я выставлял) замена конструкции 
> 
> ldapsearch -LLL -hнекий_хост -x -wнекий_пароль  -Dcn=manager,ou=mail,o=ATK-INET -bou=mail,o=ATK-INET "(&(objectclass=mailAccount)(accountStatus=blocked)(mail=ar*))" dn mail 
> 
> на 
> ldapsearch -LLL -hнекий_хост -x -wнекий_пароль  -Dcn=manager,ou=mail,o=ATK-INET -bou=mail,o=ATK-INET "(&(objectclass=mailAccount)(accountStatus=blocked))" dn mail | grep "mail: ar" 
> 
> увеличивает время работы скрипта почти в 10 раз.

на моих данных (25 хостов) и моем железе ( P-150/32M ОЗУ для 
ldap/squid/iptables/ulogd ) такая замена ничего не меняет. bash решает 
задачу быстрее всех, несмотря на grep и awk. Так что если переписать 
скрипты один в один (чтоб каждый выдавал только список ip), IMHO особой 
разницы не будет.

-- 
С уважением, Прокопьев Евгений



^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-26  8:04     ` Eugene Prokopiev
@ 2004-05-26  8:20       ` Klimchev Konstantin
  2004-05-26  9:08         ` Eugene Prokopiev
  0 siblings, 1 reply; 22+ messages in thread
From: Klimchev Konstantin @ 2004-05-26  8:20 UTC (permalink / raw)
  To: community

On Wed, 26 May 2004 12:04:41 +0400
Eugene Prokopiev <john@rmts.donpac.ru> wrote:

> на моих данных (25 хостов) и моем железе ( P-150/32M ОЗУ для 
> ldap/squid/iptables/ulogd ) такая замена ничего не меняет. bash решает 
> задачу быстрее всех, несмотря на grep и awk. Так что если переписать 
> скрипты один в один (чтоб каждый выдавал только список ip), IMHO особой 
> разницы не будет.

25 хостов не показатель, вот если выборка была хотя бы на 500-600, тогда "локальная работа" ох как дала о себе знать.

на пример, 
первый мой скрипт отработал (вернулось с лдап - 25 записей):
real    0m0.152s
user    0m0.010s
sys     0m0.010s

а второй (вернулось с лдап - 900 записей):
real    0m0.659s
user    0m0.040s
sys     0m0.060s


-- 
Best Regards, Konstantin Klimchev 
(mailto:koka@atvc.ru    jabber:koka@jabber.atvc.ru)
ATK-Internet ISP, Arkhangelsk, Russia


^ permalink raw reply	[flat|nested] 22+ messages in thread

* Re: [Comm] Ldap scripting: bash vs perl
  2004-05-26  8:20       ` Klimchev Konstantin
@ 2004-05-26  9:08         ` Eugene Prokopiev
  0 siblings, 0 replies; 22+ messages in thread
From: Eugene Prokopiev @ 2004-05-26  9:08 UTC (permalink / raw)
  To: community

Klimchev Konstantin пишет:

> On Wed, 26 May 2004 12:04:41 +0400
> Eugene Prokopiev <john@rmts.donpac.ru> wrote:
> 
> 
>>на моих данных (25 хостов) и моем железе ( P-150/32M ОЗУ для 
>>ldap/squid/iptables/ulogd ) такая замена ничего не меняет. bash решает 
>>задачу быстрее всех, несмотря на grep и awk. Так что если переписать 
>>скрипты один в один (чтоб каждый выдавал только список ip), IMHO особой 
>>разницы не будет.
> 
> 
> 25 хостов не показатель, вот если выборка была хотя бы на 500-600, тогда "локальная работа" ох как дала о себе знать.
> 
> на пример, 
> первый мой скрипт отработал (вернулось с лдап - 25 записей):
> real    0m0.152s
> user    0m0.010s
> sys     0m0.010s
> 
> а второй (вернулось с лдап - 900 записей):
> real    0m0.659s
> user    0m0.040s
> sys     0m0.060s

не спорю, но "локальная работа" у меня во всех случаях - представление 
хостов в  требуемом виде. Лишние хосты локально не отфильтровываются, 
отфильтровываются только их атрибуты.

Так что вывод остается неизменным, как и порядок способов выборки из 
ldap с точки зрения производительности:

1. bash (за счет того, что главную работу делает бинарник ldapsearch)
2. python, ruby, php
3. perl ;)

Если бы выборка была на 500-600, то, может быть, порядок бы и поменялся.

-- 
С уважением, Прокопьев Евгений



^ permalink raw reply	[flat|nested] 22+ messages in thread

end of thread, other threads:[~2004-05-26  9:08 UTC | newest]

Thread overview: 22+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-05-24 10:07 [Comm] Ldap scripting: bash vs perl Eugene Prokopiev
2004-05-24 10:10 ` Alexey Morsov
2004-05-24 10:36   ` Eugene Prokopiev
2004-05-24 11:06     ` Mike Lykov
2004-05-24 11:10       ` Eugene Prokopiev
2004-05-24 10:22 ` Klimchev Konstantin
2004-05-24 10:29   ` Eugene Prokopiev
2004-05-24 10:45     ` Alexey Morsov
2004-05-24 10:59       ` Eugene Prokopiev
2004-05-24 11:22     ` Klimchev Konstantin
2004-05-24 11:32       ` Eugene Prokopiev
2004-05-25  7:43 ` Klimchev Konstantin
2004-05-25  8:21   ` Mike Lykov
2004-05-25  8:31     ` Klimchev Konstantin
2004-05-25  8:51       ` Mike Lykov
2004-05-25  8:58         ` Klimchev Konstantin
2004-05-25 10:43 ` [Comm] " Alexey Tourbin
2004-05-26  6:06 ` [Comm] " Eugene Prokopiev
2004-05-26  6:14   ` Klimchev Konstantin
2004-05-26  8:04     ` Eugene Prokopiev
2004-05-26  8:20       ` Klimchev Konstantin
2004-05-26  9:08         ` Eugene Prokopiev

ALT Linux Community general discussions

This inbox may be cloned and mirrored by anyone:

	git clone --mirror http://lore.altlinux.org/community/0 community/git/0.git

	# If you have public-inbox 1.1+ installed, you may
	# initialize and index your mirror using the following commands:
	public-inbox-init -V2 community community/ http://lore.altlinux.org/community \
		mandrake-russian@linuxteam.iplabs.ru community@lists.altlinux.org community@lists.altlinux.ru community@lists.altlinux.com
	public-inbox-index community

Example config snippet for mirrors.
Newsgroup available over NNTP:
	nntp://lore.altlinux.org/org.altlinux.lists.community


AGPL code for this site: git clone https://public-inbox.org/public-inbox.git