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

我正在为一些数据库备份定制一个开源Perl脚本.我对Perl知之甚少.有人能告诉我如何将参数传递给qw []？

例如,原始代码是这样的

@selected_databases  = qw[testdb1 testdb2 testdb3];

我想把它转换成下面的东西

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

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

解决方法

qw不支持插值.按照 perl-doc.因此,你不能这样做,它将无法正常工作.要实现您的目标,请使用拆分功能.

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