* [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