如何将参数传递给perl qw []？

Question

我正在为某些数据库备份自定义一个开源Perl脚本。我对Perl没有多少了解。有人能告诉我如何将参数传递给qw[]？

例如原始代码就像这样

@selected_databases  = qw[testdb1 testdb2 testdb3];

我想将其转换为类似下面的内容

$_dblist = "testdb1 testdb2 testdb3";
@selected_databases  = qw[$_dblist];

但它不起作用。有人能告诉我如何将变量传递给qw []？

Answer 1

qw不支持插值。根据{{​​3}}。因此，你不能这样做，它将无法正常工作。要实现您的目标，请使用split功能。

$_dblist = "testdb1 testdb2 testdb3";
@selected = split(' ', $_dblist);