Perl刪除數組中的類似字符串

Question

我是Perl編程的新手。

我需要查找和刪除部分匹配數組中的字符串。

舉例來說，在我的數組有字符串：

@array = qw(abcd.txt abcdeff.txt abcdweff.txt abcdefrgt.txt); 

我只是想第一abcd.txt保存到數組，並刪除其餘的（這是在第4個字符相似），即它只打印abcd.txt當@print "@array";被調用時。

Answer 1

my %seen; 
@array = grep !$seen{ substr($_,0,4) }++, @array;