perl - 按组织单位在 AD 中搜索电子邮件地址

Question

我有一个用于在 AD 中搜索电子邮件地址的 Perl 脚本。

我从这里使用了这个脚本，但是我想修改它以在特定的组织单位中搜索所有以 .com 结尾的电子邮件地址，而不是一般地抓取所有电子邮件地址。

注意：我的 Perl 经验为零，我通常只使用 Python，但在 Python 中无法弄清楚，谷歌搜索了如何在 Perl 中做到这一点，并得到了一个有效的即时结果。

Answer 1

更改此行将为您提供电子邮件地址@domain.com - 如果这是您需要的！

my @adrlist = ($line =~ /smtp:(\w+\@domain.com)\;/g);