Perl删除数组中的类似字符串

Question

我是Perl编程的新手。

我需要查找并删除数组中部分匹配的字符串。

例如在我的数组中有字符串：

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

我只想将第一个 abcd.txt 保存到数组中并删除其余的（前4个字符中相似），即只打印 abcd调用@print "@array";时.txt 。

Answer 1

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