regex - 我想匹配任何不包括 '#' 但包括 '\#'

Question

我正在寻找可能包含正则表达式和注释的 perl 代码行
我需要捕捉一切，直到发表评论。所以我想要所有字符直到 # 但我对捕获 # 感兴趣
例如，如果该行是:

if ($line=/\#/) {  #captures lines with '#'

我想捕捉:

if ($line=/\#/) {

Answer 1

试试这个:

use PPI;
my $ppi = PPI::Document->new('source.pl');
my $source = '';
for my $token ( @{ $ppi->find("PPI::Token") } ) {
    last if $token->isa("PPI::Token::Comment");
    $source .= $token;
}
print $source;

除了here-docs之外，这应该可以处理几乎所有的事情。如果你需要处理这些，首先复制 PPI::Document::serialize 并修改它以停止在第一条评论上。