Как передать параметр в 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);