Блог

Я использую это регулярное выражение в Perl для сопоставления и замены следующих выражений:

• _HI2_
• _HI_2
• HI2_

• _HI_2

   if ($subject =~ m/_?HI2?_?|HI2?_?/) {
      # Successful match
  } else {
      # Match attempt failed
  }
    

Я также хочу сделать это, хотя:

 The text is:   ABCDEMAFGHIJ
  

Это последовательность HI там, но ее следует игнорировать, потому что, если вы посмотрите налево, вы увидите, что эта строка начинается с The text is: .

 The text is:   ABCDEHI2FGHI
  

Как и выше, здесь две последовательности HI .

Как я могу встроить в это регулярное выражение совпадение и игнорировать его из-за префикса строки?

Почему бы просто не сопоставить дважды? Если $subject не соответствует /^тексту:/ , запустите замену ..

Попробуйте это регулярное выражение:

 /^(?!The text is:).*(?:_?HI2?_?|HI2?_?)/
  

Или используйте два совпадения, например:

 if($subject !~ /^This text is:/i amp;amp; $subject =~ /_?HI2?_?|HI2?_?/)
  

Я только что обнаружил этот замечательный ресурс здесь и раздел о Perl.

Вы можете найти там детали (*SKIP)(*F) конструкции, которая поразит вас; вы описали проблему как однострочную:

 cat > test.txt <<EOF
_HI2_
_HI_2xxxHI_2
The text is:   ABCDEMAFGHIJ
HI2_
The text is:   ABCDEHI2FGHI
_HI_2
EOF

perl -ne '/^The text is:.*$(*SKIP)(*F)|. / amp;amp; s/_?HI_?2?_?/HAPPY/; print' test.txt

# or

perl -ne 's/(^The text is:.*$)(*SKIP)(*F)|_?HI_?2?_?/HAPPY/g; print' test.txt
  

Я вновь обрел любовь и уважение к Perl; Я предпочитаю Sed, но теперь я знаю, как пропускать строки (читай: оставлять без изменений) в Perl, я буду меньше колебаться

Попробуйте указать, что это начало строки с «^», игнорируйте пробелы, если это, по вашему мнению, необходимо (я всегда стараюсь это делать). Также вы могли бы пометить конец строки символом «$»

 if ($subject =~ m/^s*_?HI2?_?|HI2?_?/) {
    # Successful match
} else {
    # Match attempt failed
}
  

Не самый элегантный метод, но простой для понимания (TIMTOWTDI 🙂

 #!/usr/bin/perl

use strict;
use warnings;


my @text = ("ABCDEHI2FGHI", "The text is:   ABCDEHI2FGHI");

for (@text) {
    my $new = my_replace($_); # do the replacement
    print "$newn";           # print result
}

sub my_replace {
    my ($text) = @_;
    return $text if ($text =~ m/The text is:/);      # return if prefixed / no replacement
    $text =~ s/(_?HI2?_?|HI2?_?)/__replacement__/g;  # do replace (give a replacement string here)
    return $text;                                    # return result of replacement
}

  

В противном случае вы можете использовать «отрицательный взгляд назад«.

Чтобы попробовать, смотрите regex101 или debuggex.

/(?<!^The text is.*)(_?HI2?_?|HI2?_?)/