perl - 禁用关于 qw 列表中文字逗号的警告

Question

my @flavors = qw/sweet,sour cherry/;

产生“可能尝试用逗号分隔单词” - 在我想要文字逗号的情况下，如何禁用该警告？

Answer 1

禁用 warnings本地:

my @flavors;
{
    no warnings 'qw';
    @flavors = qw/sweet,sour cherry/;
}

或者，用逗号分隔那些:

my @flavors = ('sweet,sour', qw/cherry apple berry/);