Perl delete similar strings in an array

Question

I am new to Perl programming.

I need to find and delete partially matching strings in an array.

For example in my array there are strings:

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

I just want the first abcd.txt to be saved to the array and to delete the rest (which are similar in the first 4 characters) i.e. so that it will print only abcd.txt when @print "@array"; is called.

This is not a duplicate, it differs somewhat. – AKHolland Apr 28 '15 at 19:21 — AKHolland, Apr 28 '15 at 19:21
`@print "@array";` is wrong. It should be `print "@array";` – serenesat Apr 28 '15 at 20:13 — serenesat, Apr 28 '15 at 20:13

score 3 · Accepted Answer · answered Apr 28 '15 at 18:05

3

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

answered Apr 28 '15 at 18:05

ysth

96,171
6
121
214

Thank you it works How about this @array = qw (abcd.txt abcdeff.txt abcdweff.txt abcdefrgt.txt efghijk.txt efghijksdf.txt efghijkasdfw.txt); – Xpx Apr 29 '15 at 01:05
what about that? it should work for that too, getting rid of any elements that have the same first four characters as a previous element – ysth Apr 29 '15 at 01:17
Yea, it works as well. – Xpx Apr 30 '15 at 01:47

Perl delete similar strings in an array

1 Answers1