|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Џа®Є®ЇмҐў …ўЈҐЁ© 2:5020/400 14 Apr 2004 13:50:04
To : All
Subject : Вывод данных из структуры
--------------------------------------------------------------------------------
Здравствуйте!
Прошу прощения, что пишу сюда, т.к. perl не знаю вообще :(
Hо пришлось связаться, т.к. писать то же самое на bash все же изврат.
Hадо достучаться до openldap-сервера, и выдать в одну колонку значения
одного из атрибутов некоторого набора записей.
по образцу perldoc Net::LDAP написал:
#!/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 => "objectClass=internetAccess"
);
$mesg->code && die $mesg->error;
foreach $entry ($mesg->all_entries) { $entry->dump; }
$ldap->unbind;
Как мне теперь вместо $entry->dump; написать вывод только того, что мне
надо?
И еще попутный вопрос: какой краткий курс perl (желательно на русском) в
электронном виде читать? А то много глупых вопросов будет :)
--
С уважением, Прокопьев Евгений
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
