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検索をサポートする他のエディタで検索できるように、コードのループではなく、ある正規表現にあった方が良いでしょう。 （1つの質問がどれだけ読んで理解できるかは驚くほどですが、私はかなりわかりましたが、完全に有効な回答の多様性から、もっと多くの詳細を含めることができるという明確な理由から:-)

Answer 1

質問で指定された入力の場合：あなたはより多くのスペースや他のインデントの演算子を持っている場合は、

use strict; 

use warnings; 


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

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

ルックの背後にある演算子を使用します：

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

これは事を行います は厳格な使用を。

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"/) { 
     ...; 
    } 
}