perl - 如何在 Perl 中解析变量

Question

我需要帮助解决以下变量${$mapusers[$index]->[1]}

见下文...它打印找到。但是当我做一个系统（$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]不是引用，则应使用第二个。

如果要捕获命令的标准输出，请使用readpipe代替system，或使用反引号运算符。

Answer 2

如果要运行adquery命令并将其输出存储在 中$query_user，请使用反引号或qx：

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