Perl delete similar strings in an array [duplicate]

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
– AKHolland

2015-04-28 19:21:55 +00:00
Commented Apr 28, 2015 at 19:21 — AKHolland
– AKHolland, Commented Apr 28, 2015 at 19:21
@print "@array"; is wrong. It should be print "@array";

serenesat
– serenesat

2015-04-28 20:13:58 +00:00
Commented Apr 28, 2015 at 20:13 — serenesat
– serenesat, Commented Apr 28, 2015 at 20:13

ysth · Accepted Answer · 2015-04-28 18:05:52Z

3

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

answered Apr 28, 2015 at 18:05

ysth

99.1k6 gold badges126 silver badges219 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

Xpx Over a year ago

Thank you it works How about this @array = qw (abcd.txt abcdeff.txt abcdweff.txt abcdefrgt.txt efghijk.txt efghijksdf.txt efghijkasdfw.txt);

ysth Over a year ago

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

Xpx Over a year ago

Yea, it works as well.

Collectives™ on Stack Overflow

Perl delete similar strings in an array [duplicate]

1 Answer 1

3 Comments

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Linked

Related