Perlについての質問箱 18箱目

>509のやつ、こんなのしか書けなかった
どうみても>512のほうがよくできてるよな…

my @a = qw(1 3 1);
my @b = qw(a0 b1 c2 a0 b1 c2);

my @a_reg = ();
push @a_reg, qr/$_/ foreach @a;

my @temp = ();
CHECK: foreach my $test (@b) {
  foreach my $reg (@a_reg) {
   next CHECK if $test =~ /$reg/;
  }
  push @temp, $test;
}

my %seen = ();
my @nomatch = ();
foreach (@temp) {
  push @nomatch, $_ unless $seet{$_}++;
}
print "@nomatch";