perl將變量賦值給一個有關係的數組

Question

請教如何在關係數組中傳遞3個變量。

@item = ($a , $b , $c); 
@record = push(@array, @item); 

我想在@array中指定值，這樣如果我查找任何實例，我應該得到所有a，b，c的值。

是否有除了逗號任何方式分配在陣列中的值。像$答：$ B：$ C或$ A> $ B> $ C 我需要這個，因爲我想用grep 1條記錄（一）和get（A：B：C）

@array1 = grep(!/$a/, @array); 

expected output should be a:b:c 

謝謝，

Answer 1

這個問題不是很清楚。也許你應該改寫它。 但是，我知道你想要一個由三個元素組成的數組。

您可能需要使用數組引用。如您所願

@item = ($a , $b , $c); 
push(@array, \@item); 

或

$item = [$a , $b , $c]; 
push(@array, $item); 

此外，push不會返回數組。 Perldoc說：

返回完成 「推」後數組中元素的數量。

現在，如果你要過濾這些組三個要素，你可以做這樣的事情：

my @output =(); 
L1: foreach (@array){ 
    L2: foreach(@$_){ 
     next L1 if $_ eq $a; 
    } 
    push @output, $_; 
} 

請注意，如果你想完全匹配，你應該使用eq操盤的正則表達式...