From: Alexey Morsov <samurai@ricom.ru> To: community@altlinux.ru Subject: Re: [Comm] Ldap scripting: bash vs perl Date: Mon, 24 May 2004 14:10:46 +0400 Message-ID: <40B1CA26.1070204@ricom.ru> (raw) In-Reply-To: <40B1C951.3030204@rmts.donpac.ru> 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
next prev parent reply other threads:[~2004-05-24 10:10 UTC|newest] Thread overview: 22+ messages / expand[flat|nested] mbox.gz Atom feed top 2004-05-24 10:07 Eugene Prokopiev 2004-05-24 10:10 ` Alexey Morsov [this message] 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
Reply instructions: You may reply publicly to this message via plain-text email using any one of the following methods: * Save the following mbox file, import it into your mail client, and reply-to-all from there: mbox Avoid top-posting and favor interleaved quoting: https://en.wikipedia.org/wiki/Posting_style#Interleaved_style * Reply using the --to, --cc, and --in-reply-to switches of git-send-email(1): git send-email \ --in-reply-to=40B1CA26.1070204@ricom.ru \ --to=samurai@ricom.ru \ --cc=community@altlinux.ru \ /path/to/YOUR_REPLY https://kernel.org/pub/software/scm/git/docs/git-send-email.html * If your mail client supports setting the In-Reply-To header via mailto: links, try the mailto: link
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