perl - Perl for 循环的语法

我继承了 Perl 脚本，但还没有 Perl 背景。脚本失败:

syntax error at /home/assay/assay/bin/mpprimer/MPprimer/bin/MPprimer_dimer_check.pl line 181, near "$k qw(a g c t)"

这是相关代码

# create a binding array for each of the four bases
for $l (0 .. $pfl-1) {
    my $mbase = substr($fprimer_r, $l, 1);
    $primer_hash{$mbase}[$l]=1;
    for $k qw(a g c t) {
        $primer_hash{$k}[$l] ||=0;
    }
}

任何指针或建议将不胜感激。

最佳答案

您需要在要迭代的列表周围加上括号(在本例中为 qw// 构造):

for $k (qw(a g c t)) {

关于perl - Perl for 循环的语法，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/31748976/