Соответствие:

Question

Привет, У меня проблема с моей программой, я написал код ниже и возвращает ожидаемый результат. Однако меня интересует только первое и последнее появление матчей. Как мне это сделать?

foreach (@array) 
{ 
    $element = $_; 
    foreach(@array2) 
    { 
     if($_ =~ s/($element)//ig) 
     { 
      print "$_ \n"; 
     } 
    } 
} 

В настоящее время цикл проходит через каждый элемент массива, находит его во втором массиве и печатает всю строку. Он возвращает ожидаемый результат, однако мне нужно первое совпадение и последнее совпадение.

Answer 1

Может возможно сделать это

foreach (@array) 
{ 
    $first = ""; 
    $last = ""; 
    $element = $_; 
    foreach(@array2) 
    { 
     if($_ =~ s/($element)//ig) 
     { 
      if (!length($first)){ 
       $first = $_; 
      } 
      else { 
       $last = $_; 
      } 
     } 
    } 
    if (length($first) && length($last)) { 
     print "\n----------\nfirst = '$first'\nlast = '$last'"; 
    } 
} 

Answer 2

foreach my $elm2 (@array2) { 
    my $state = 'start'; 
    my $first, $last; 

    foreach my $elm1(@array1) { 
      if (($state eq 'start') && ($elm1 =~ m/$elm2/i)) { 
       $first = "$elm1"; 
       $state = 'last'; 
      } 
      elsif (($state eq 'last') && ($elm1 =~ m/$elm2/i)) { 
       $last = $elm1; 
      } 
    } 
    print "$elm2,$first,$last\n"; 
} 

Answer 3

Полностью забыл о Grep.

foreach my $elm2 (@array2) { 
     my @matches = grep(/$elm2/i, @array1); 
     if (@matches && (scalar (@matches > 1))) { 
     print "$elm2,$matches[0], $matches[-1]\n"; 
     } 
     elsif (@matches) { 
     print "$elm2,$matches[0]\n"; 
     } 
     else {print "no matches\n";}; 
} 

Answer 4

немного поздно, но это то, что я думаю, вы могли бы использовать

Найти первый матч

if ($_ =~ m/($element)/) { print $1; } 

Найти последний матч

if ($_ =~ m/.*($element)/) { print $1; } 

Answer 5

Предполагая, что вы хотите проверить, какие элементы @array2 соответствуют любому шаблону в @array и распечатывают первый a Последнее последнее из них, проще всего создать регулярное выражение чередования из содержимого @array и фильтра @array2, используя это.

Как это

my $re = join '|', @array; # Build a regex 
$re = qr/$re/;    # Compile it 

my @matches = grep /$re/, @array2; 
print "$_\n" for @matches[0,-1];