Question

Я пытаюсь найти все вхождения некоторого кода, если этому коду не предшествует комментарий.

Вот пример того, что я хочу найти:

$page_content .= '<meta http-equiv="refresh" 

или

$page_content .= 'Some other text here</p><meta http-equiv="refresh" 

С или без предварительного белого пространства. Вот что я хочу, чтобы игнорировать

//$page_content .= '<meta http-equiv="refresh" 

снова с или без предшествующего белого пространства.

Таким образом, я уверен, что моя база кода никогда не содержит этот код, если только он не находится в комментарии или не настроен на автоматическое оповещение, если он найден без получения ложных предупреждений, когда его прокомментировал (игнорируйте многострочные комментарии на данный момент).

Я попытался использовать взгляд за

(?<!\/\/).*<meta http-equiv="refresh" 

, но у меня не было много удачи, как это по-прежнему соответствует каждому вхождению, комментировал или нет.

Еще одна вещь: Было бы здорово, если бы это было в одном регулярном выражении, а в цикле кода, чтобы я мог искать в Notepad ++ или другом редакторе, который поддерживает поиск reg exp. (Удивительно, как иначе один вопрос может быть прочитан/понят. Я думал, что я был довольно ясен, но из множества вполне обоснованных ответов ясно, что я мог бы включить намного больше деталей :-)

Answer 1

Для ввода указанного в вопросе:

//$page_content .= '<meta http-equiv="refresh" 

Это сделает вещь:

use strict; 

use warnings; 


open my $fh, "<", "my_path\\data.txt"; 

while (my $line = <$fh>) { 
    if ($line =~ /^(?!\/\/).*?<meta http-equiv=\"refresh\"/){ 
     print $line; 
    } 
} 

Если у вас есть пробелы или другие отступа операторы, использовать взгляд-за оператора: использование строги;

use warnings; 


open my $fh, "<", "c:\\users\\uidp7702\\desktop\\data.txt"; 

while (my $line = <$fh>) { 
    if ($line =~ /(?<!\/\/)\$page_content\s.=\s\'.*?<meta http-equiv=\"refresh\"/){ 
     print $line; 
    } 
} 

Answer 2

Просто удалите комментарий перед проверкой строки

while (<$fh>) { 

    s|//.*||; 

    if (/<meta http-equiv="refresh"/) { 
     ...; 
    } 
}