#!/usr/bin/perl
use strict;
my @array = ("foo {abc123}\n", "bar {def456}\n", "baz {ghi789}\n");
my @array2 = ("foo", "bar", "quux");
foreach my $i (@array) {
chomp $i;
print "checking $i\n";
if ($i =~ m/@array2/) {
print "$i is in array2 - skipping\n";
next;
}
# Do something with $i now.
}
####
my $regex = "(";
foreach (@array2) {
$regex .= $_ . "|";
}
$regex .= ")";
##
##
if ($i =~ m/$regex/) {
##
##
#!/usr/bin/perl
use strict;
my @array = ("foo {abc123}\n", "bar {def456}\n", "baz {ghi789}\n");
my @array2 = ("foo", "bar", "quux");
OUTTER: foreach my $i (@array) {
chomp $i;
print "checking $i\n";
foreach my $j (@array2) {
if ($i =~ m/$j/) {
print "$i is in array2 (matches $j) - skipping\n";
next OUTTER;
}
}
print "$i IS NOT IN ARRAY 2\n";
# Do something with $i now.
}