perl grep matching variable from hash table

Question

I have the following code in perl that tries to find a string '$dataset' in the keys of %samples_runs and stores it in an array

} elsif ( my @matches = grep /$dataset/, keys %samples_runs ) { 
    my @values = @samples_runs{@matches};

    foreach my $match (@matches) {
    # do something
    }

However, if the 'keys %samples_runs' starts with "prefix-1-1", I don't want this to be considered as a match.

So when there is a match, this will evaluate to true 'grep /$dataset/, keys %samples_runs'. But when there is a match AND the keys%samples_runs starts with 'prefix-1-1', nothing should be added to the @matches array.

How can I implement this?

What do you mean by 'keys %samples_runs' starts with "prefix-1-1"? Please show sample data and expected results. — melpomene
– melpomene, Commented Jun 4, 2019 at 10:20

Sobrique · Accepted Answer · 2019-06-04 10:31:49Z

2

grep will let you implement any conditions you like. So yes, it can be done.

my @matches = grep ( /$dataset/ and not /^prefix-1-1/, keys %sample_runs );

Should do what you want.

answered Jun 4, 2019 at 10:31

Sobrique

53.6k8 gold badges63 silver badges107 bronze badges

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

1 Comment

user1987607 Over a year ago

comman above was giving an error. Changed it to: elsif ( my @matches = grep /$dataset/ && ! /^prefix-1-1/, keys %samples_runs)

Collectives™ on Stack Overflow

perl grep matching variable from hash table

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related