删除几乎重复的字符串

Question

您好，我将这些字符串和其他几个字符串放在一个数组中。

    revised_1.4_1.4-1.05-jan
    revised_1.5_1.8-before
    revised_1.5_1.8-after
    revised_1.5_0.7-mid
    deleted&reviewed_0.9-0.8-1.05-jan
    deleted&reviewed_1.6_1.6-before
    deleted&reviewed_0.5_1.8-after
    deleted&uploaded_0.8_1.9-midweek
    deleted&uploaded_1.0_1.3-offweek
    accessedbeforesecondquarter_0.8._1.6-jan
    accessedbeforesecondquarter_0.9_1.7-feb

我需要在数组中保留一个几乎相似的字符串。我如何编写代码来获取这个数组？

    revised_1.4_1.4-1.05-jan 
    deleted&reviewed_0.9-0.8-1.05-jan
    deleted&uploaded_0.8_1.9-midweek
    accessedbeforesecondquarter_0.8._1.6-jan

这是我的代码，将字符串保存到数组中对我来说似乎效果不佳。

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

Answer 1

保持您尝试过的精神：

my %seen;
my @result = grep {! $seen{(split "_",$_)[0]}++} <DATA>;
print @result;

__DATA__
revised_1.4_1.4-1.05-jan
revised_1.5_1.8-before
revised_1.5_1.8-after
revised_1.5_0.7-mid
deleted&reviewed_0.9-0.8-1.05-jan
deleted&reviewed_1.6_1.6-before
deleted&reviewed_0.5_1.8-after
deleted&uploaded_0.8_1.9-midweek
deleted&uploaded_1.0_1.3-offweek
accessedbeforesecondquarter_0.8._1.6-jan
accessedbeforesecondquarter_0.9_1.7-feb

结果：

revised_1.4_1.4-1.05-jan
deleted&reviewed_0.9-0.8-1.05-jan
deleted&uploaded_0.8_1.9-midweek
accessedbeforesecondquarter_0.8._1.6-jan

删除几乎重复的字符串

Remove almost duplicated strings

arrays

string

perl

duplicates