如何引用在一個語句中計算的正則表達式匹配？

Question

我想要做這樣的事情

if(($Fifo[5]=~/T0int(\S+)/)&&($Fifo[6]=~/T0int(\S+)/)&&($1 ne $2)) 
{ 
    <Do something> 
} 

我如何可以參考兩個正則表達式匹配的評價？

通過$ 1我的意思是在第一個正則表達式中計算匹配，在下一個中計算$ 2。

Answer 1

my($first) = $Fifo[5] =~ /T0int(\S+)/; 
my($second) = $Fifo[6] =~ /T0int(\S+)/; 

if (defined($first) && defined($second) && $first ne $second)) { ⋯ } 

以上的傲慢：傲慢

if (($Fifo[5] =~ /T0int(\S+)/)[0] ne ($Fifo[6] =~ /T0int(\S+)/)[0]) { ⋯ } 

甚至更​​多仍然：

if ((my($first, $second) = "@Fifo[5,6]" =~ /T0int(\S+)/g) 
     && $first && $second 
     && $first ne $second) 
{ 
    ⋯ 
} 

Answer 2

嘗試這樣：

if(($Fifo[5] =~ (/T0int(\S+)/)) && ($Fifo[6] =~ (/T0int(\S+)/)) && ($1 ne $2)) 

各地正則表達式基本上把括號將它們分組爲$ 1，$ 2