如何使用Perl从LDAP服务器下载用户列表？

cpan install Net::LDAP

#!/usr/bin/perl

use strict;
use Net::LDAP;

# LDAP服务器配置
my $ldap_host = 'your_ldap_host';
my $ldap_port = 'your_ldap_port';
my $ldap_base_dn = 'your_ldap_base_dn';
my $ldap_bind_dn = 'your_ldap_bind_dn';
my $ldap_bind_password = 'your_ldap_bind_password';

# 连接到LDAP服务器
my $ldap = Net::LDAP->new($ldap_host, port => $ldap_port)
    or die "Could not connect to LDAP server: $@";

# 绑定到LDAP服务器
my $mesg = $ldap->bind($ldap_bind_dn, password => $ldap_bind_password);
if ($mesg->code) {
    die "Error binding to LDAP server: " . $mesg->error . "\n";
}

# 搜索用户
my $search_filter = '(objectclass=*)';
my $search_base_dn = $ldap_base_dn;
my $search_attrs = ['cn', 'sn', 'mail'];
my $search_scope = 'sub';

$mesg = $ldap->search(
    base   => $search_base_dn,
    filter  => $search_filter,
    attrs   => $search_attrs,
    scope   => $search_scope
);

if ($mesg->code) {
    die "Error searching LDAP: " . $mesg->error . "\n";
}

# 打印搜索结果
foreach my $entry ($mesg->entries) {
    my $dn = $entry->dn;
    my %attrs = $entry->attributes;
    print "DN: $dn\n";
    foreach my $attr (keys %attrs) {
        my @values = $entry->get_value($attr);
        print "$attr: " . join(", ", @values) . "\n";
    }
    print "\n";
}

# 断开连接
$ldap->unbind;