0
Win32 :: ad :: userを使用してcsvファイル内の特定のユーザー名のDNを取得しようとしていますPerlのモジュールですが、私は正しい構文を得ることができません。ここに私のコードです...（ドメイン名は交換されました）Perl - Win32 :: AD :: User - DNを取得する方法を理解できないようです。
#!/usr/bin/perl
#use strict;
use warnings;
use Win32::AD::User;
use Text::CSV;
use Net::LDAP;
my $file = "Users.csv";
my $csv = Text::CSV->new();
open (CSV, "<", $file) or die $!;
while (<CSV>) {
if ($csv->parse($_)) {
my @username = $csv->fields();
my $user = $username[0];
my $adstring = join('', $user, ',user",',$user, '"');
my $acdiruser=Win32::AD::User->new('WinNT://my.domain.EDU/ ',$user);
$acdiruser->get_info();
print join ("\n", $acdiruser->get_property(dn));
}
}
close CSV;
アイデアはありますか？
ありがとうございました！
EDIT： "厳密なサブ"がT：\ Thunderbird Conversion \ GetOU.pl 22行目の558行で使用されている間、エラーはBareword "dn"ではありませんでした。T：\ Thunderbird Conversion \ GetOU.plの実行が中止されましたコンパイルエラーが原因です。
"正しい構文を取得できないようです"というエラーメッセージはPerlではありません。コードを実行するとどうなりますか？そしてそれと同じ重要性の理由は、なぜあなたは「厳密な使用」をコメントしたのですか？スローアウェイライナーをしていない限り、私はいつも 'strict'と' warnings'を毎回使うことをお勧めします。 –
一般的に私は...私はそれを動作させるためにキッチンシンクの試みでそれをしたと思います。 T：\ Thunderbird Conversion \ GetOU.pl 22行目、行558で使用中の「厳密なサブ」の間はエラーです。「T：\ Thunderbird Conversion \ GetOU.pl」の実行がコンパイルエラーにより中止されました。 – Matchete
そう、しないでください。これは、あなたが探している 'get_property'メソッドの引数が文字列であるかのように見えます。だからそれに文字列を与える。 –