perl - 組織単位によるADの電子メールアドレスの検索

Question

ADでメールアドレスを検索するためのPerlスクリプトがあります。

ここからこのスクリプトを使用しましたが、一般的にすべての電子メールアドレスをスクレイピングするのではなく、特定の組織単位で.comで終わるすべての電子メールアドレスを検索するように変更したいと思います。

注：私はPerlの経験がまったくありません。通常、Pythonしか実行しませんが、Pythonでそれを理解することはできません。また、Perlでそれを実行する方法をグーグルで検索し、すぐに機能する結果を得ました。

Answer 1

この行を変更すると、電子メールアドレス@ domain.comが得られます-それが必要な場合は！

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