perl - Perl で変数を解決する方法

Question

次の変数を解決するのに助けが必要です${$mapusers[$index]->[1]}

以下を参照してください... find を出力します。しかし、system($query_user) を実行すると、変数は空になります。

my $query_user = 'adquery user -w ${$mapusers[$index]->[1]}';

Answer 1

"の代わりに使用':

my $query_user = "adquery user -w ${$mapusers[$index]->[1]}";
system($query_user);

または、それが機能しない場合は、これを試してください。

my $query_user = "adquery user -w " . $mapusers[$index]->[1];
system($query_user);

$mapusers[$index]->[1]がスカラー参照の場合は最初のものを使用$mapusers[$index]->[1]し、参照でない場合は 2 番目のものを使用する必要があります。

コマンドの stdout をキャプチャする場合は、readpipe代わりに をsystem使用するか、バッククォート演算子を使用します。

Answer 2

コマンドを実行してadqueryその出力を に保存する場合は、バッククォートまたは$query_userを使用します。qx

my $query_user = `adquery user -w ${$mapusers[$index]->[1]}`;