<分区>
我正在尝试编写一个选择器，它过滤掉/删除注释 (#) 符号后的所有内容，但忽略字符串中的 # 符号(""或 '')
所以在下面的例子中只有最后一行会被过滤/删除
"#dummy comment" asd asd
' abc # dummy comment'
abc #real comment
这是我到目前为止想出的两个正则表达式选择器(我稍后会添加 s/标签):
/('|").*#.*('|")/g --> selects fake commnts
/#(?!!).+/g ---> highlights all comments, including above ones (?!! is to ignore #!/usr/bin/env perl )
我目前正在努力加入这两个评论以实现上述结果。我试过使用正向和反向查找，但似乎无法做到这一点。任何建议都将不胜感激。
最佳答案
这个简单的方法怎么样？
#后的子串这是您的示例输入的测试程序:
#!/usr/bin/perl
use strict;
use warnings;
while (<DATA>) {
chomp;
s/['"][^'"]*['"]//g;
if (m/#(.*)/) {
print "$1\n";
}
}
__DATA__
"#dummy comment" asd asd
' abc # dummy comment'
abc #real comment
关于regex - Perl 正则表达式 : how do I combine these 2 regex statements?，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/23244723/