Re: Comparing 2 arrays but ignoring certain patterns

[NetWallah]

in reply to Comparing 2 arrays but ignoring certain patterns

Fixed a few things:

#!/usr/intel/bin/perl
use strict;
use warnings;
my @testlist = qw(ctahci cptcsa0 ctsata:25:seed cptcsa1:50:seed ctsata
+_1:25:seed);
my @removelist =qw(cptcsa0 ctsata cptcsa1);
my $outfile = "./new.list";

my %removehash=map{$_=>1} @removelist;

my @newlist=grep !defined( $removehash{ (m/(\w+)/)[0] }), @testlist;

# creating new list
open (my $OUTFILE, ">",$outfile) or die "Cannot open $outfile for writ
+ing:$!\n";

print $OUTFILE "$_\n" foreach (@newlist);

---Output:---
ctahci
ctsata_1:25:seed

Adjust the regular expression to suite your requirements.

[hongping]

ur script is great, but my @testlist and @removelist may contain more than one word such as:

ctahci_sip11cs_devslp_deto_exp:50:seed
ctahci_sip11cs_devslp_deto_exp2:50:seed

therefore the code will assume it is same when one word is matching. How to deal with this?

[NetWallah]

You will need to test out the conditions you expect to work, and define your problem more clearly.

I tested the patterns you proposed with my code - it works fine.

If it does not meet your requirements, as I said in my previous post - feel free to modify the regular expression to work with your requirements.

[AnomalousMonk]

I don't understand, especially where you say

... @removelist may contain more than one word such as:
ctahci_sip11cs_devslp_deto_exp:50:seed
ctahci_sip11cs_devslp_deto_exp2:50:seed


The string  'ctahci_sip11cs_devslp_deto_exp:50:seed' doesn't look like anything appearing in the  @removelist array in your OPed example code. Can you give an example of data for which NetWallah's code fails?

[hongping]

After the several tries. This code just perfect for me. Thanks a lot. =)