按组织单位搜索AD以查找电子邮件地址

Question

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

I used this script from here但我想将其修改为搜索以.com结尾的所有电子邮件地址的特定组织单位，而不是一般性地抓取所有电子邮件地址。

注意：我没有Perl经验，我通常只做Python而无法在Python中弄清楚，用Google搜索如何在Perl中做到这一点并获得即时结果。

Answer 1

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

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