perl - "? :"if 语句中的变量赋值

Question

我想在一个 ? : 声明并避免使用标志来实现这一点，即直接执行。输出是“1”而不是 AGFTVASTGHAVFEW--SAC。帮助表示赞赏。

#!/usr/local/bin/perl
use warnings;
use strict;
use feature qw(say switch);
my $homologue;
my $homologue_gap = "AGFTVASTGHAVFEW--SAC";
my $flag = 0;

$homologue_gap =~ m/-/ ? $homologue = $homologue_gap : $flag = 1; 
say $homologue;
__DATA__
**Output** 
1
**Output sought** 
AGFTVASTGHAVFEW--SAC

背景，我正在比对中提取同源寡肽，并考虑可能存在的任何插入缺失(“-”字符)。

Answer 1

$flag = 1 至少需要一组括号 -- : 的优先级高于 =

$ perl -MO=Deparse,-p -e '$a ? $b=1 : $c=2'
(($a ? ($b = 1) : $c) = 2);

$ perl -MO=Deparse,-p -e '$a ? $b=1 : ($c=2)'
(($a ? ($b = 1) : ($c = 2));