Re^2: Deleting elements of one list using another


Problems? Is your data what you think it is?
	PerlMonks

Re^2: Deleting elements of one list using another

by suaveant (Parson)

on Aug 02, 2012 at 13:39 UTC ( [id://985038]=note: print w/replies, xml )

Need Help??

in reply to Re: Deleting elements of one list using another
in thread Deleting elements of one list using another

Right idea but you aren't using anything to anchor the pattern, so you would also match 'JohnABC, CDE, 14'


@arr1 = ("0000007 | John | ABC.txt | 42","0000014 | Jane | XYZ.txt | 3
+4","0000017 | Jessica | GHI.txt | 21", etc);
@arr2 = ('0000007', '0000014');

my $re = join('|',@arr2);
my @arr3 = grep /^(?:$re)\s/, @arr1;

print join("\n",@arr3),"\n";
[download]

- Ant
- Some of my best work - (1 2 3)