我想知道如何最好地解析ldif文件(和类似ldif的文件),以便我可以将每个DN条目及其相关属性导入变量,而不会跨越到其他DN及其属性,因为所有内容都在单个文件。
请问怎么办?
感谢您帮助一个菜鸟。
编辑: 类似ldif的文件示例如下所示:
dn: cn=admins,cn=groups,cn=accounts,dc=mydom,dc=com
Group name: admins
Description: Account administrators group
GID: 721800000
Member users: admin, user2, user1
ipauniqueid: 2dafa3a2-b903-11e2-8a28-525400a60ac3
objectclass: top, groupofnames, posixgroup, ipausergroup, ipaobject, nestedGroup
dn: cn=editors,cn=groups,cn=accounts,dc=mydom,dc=com
Group name: editors
Description: Limited admins who can edit other users
GID: 721800002
Member users: user1
ipauniqueid: 2dc4446a-b903-11e2-a2fa-525400a60ac3
objectclass: top, groupofnames, posixgroup, ipausergroup, ipaobject, nestedGroup
dn: cn=employees,cn=groups,cn=accounts,dc=mydom,dc=com
Group name: employees
Description: Default group for all Qrios employees
GID: 721800006
Member users: user2, user3
ipauniqueid: 134ae6e0-b910-11e2-a7f3-525400a60ac3
objectclass: top, groupofnames, nestedgroup, ipausergroup, ipaobject, posixgroup
我希望能够根据第一个关键字(dn)选择文件的各个部分,并将行的值导入变量,以便我可以使用它们,然后转到下一部分。
答案 0 :(得分:0)
只是一个带有LDAP模块的perl的小例子:
# Read in the LDIF file specified in $input_file
my $ldif = Net::LDAP::LDIF->new($input_file, "r", onerror => 'warn', change => 1);
#
# Process the LDIF input file
#
while($entry = $ldif->read())
{
# Get the Member attribute
my @mbr = $entry->get_value('Member');
foreach my $value (@mbr)
{
# Here you have a 'Member' value in $value, do what you want
}
}
正如您所看到的,这使事情变得非常简单。此外,这些模块还考虑了LDIF中的所有不同约定,如缩写行,变换类型等。