只需要數組字符串的一部分複製到另一個陣列

Question

這是我的源陣列：

my @raw_stack = (
    'a1~a2~a3~a4~a5', 
    'b1~b2~b3~b4~b5', 
    'c1~c2~c3~c4~c5', 
    'd1~d2~d3~d4~d5', 
    'e1~e2~e3~e4~e5', 
); 

我想獲得「〜」模式的第3個值然後再將這個 到另一個陣列。

其他陣列現在應該是這樣的：

my @other_stack = (
    'a3', 
    'b3', 
    'c3', 
    'd3', 
    'e3', 
); 

我能去通過堆疊陣列循環再拆
推到另一個陣列，但是我正在尋找一種方式精益
爲此編碼。

任何想法？

Answer 1

my @other_stack = map {(split/~/)[2]} @raw_stack; 

Answer 2

使用map列出改造，而不是push。如果項目是固定寬度，則使用index/substr或unpack。這通常比使用正則表達式的split更快。