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

Question

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

例如原来的代码是这样的

@selected_databases = qw[testdb1 testdb2 testdb3]; 

我想将其转换为类似下面

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

，但它无法正常工作。有人能告诉我如何将一个变量传递给qw []？

Answer 1

qw不支持插值。根据perl-doc。因此，你不能这样做，这是行不通的。要达到您所期望的目标，请使用split函数。

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