Perl删除数组中的相似字符串[重复]答案

【问题标题】：Perl delete similar strings in an array [duplicate]Perl删除数组中的相似字符串[重复]
【发布时间】：2015-07-07 17:14:32
【问题描述】：

我是 Perl 编程的新手。

我需要在一个数组中找到并删除部分匹配的字符串。

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

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

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

【问题讨论】：

【解决方案1】：

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

【讨论】：

谢谢它的工作原理@array = qw (abcd.txt abcdeff.txt abcdweff.txt abcdefrgt.txt efghijk.txt efghijksdf.txt efghijkasdfw.txt);
那怎么样？它也应该适用，摆脱与前一个元素具有相同前四个字符的任何元素
是的，它也可以。