需要修复 perl 正则表达式以处理多种情况

Question

我正在尝试使用正则表达式处理一些字符串情况： (.*note(?:'|")?\s*=>\s*)("|')?(.*?)\2(.*)

字符串：

• note => “这里是注释”，
• note => '注意在这里'，
• 注 => $注，
• note => "$note",
• note => '$note',
• note => '$note'
• 注 => $注。 $note2（可以更长，认为它是 perl 哈希的键值）
• # note => '$note',

开始/结束/中间可以有多个空格。我需要捕获"（或'）、$note、, 或note_section 之后剩下的任何内容。如果此行是注释，则开头可以有#，因此，我在开头包含了.*。
鉴于正则表达式在案例 3 中失败，因为 \2 为空。

编辑： 要求是我正在读取一个文件，并用一些标签替换 note 的值，比如NOTETAG，并且周围的所有其他内容保持不变，包括引号和空格。为此，

• 我们需要从头开始捕获所有内容，直到我们开始写入值
• 我们也应该捕获引号，这样我就可以准确地写回来
• 我们需要捕捉笔记的价值
• 我们也应该捕捉音符值之后的东西。

例如note => "kamal" , 将变为 note => "NOTETAG" ,（注意我们没有吃掉上次的 ,）

Answer 1

s{
   \b
   note
   \s*
   =>
   \s*
   \K
   (?: (.*)
   |   '[^']*'
   |   "[^"]*"
   )
}{
   defined($1)
   ?  $1 =~ s{\$note\b}{"NOTETAG"}gr
   : '"NOTETAG"'
}exg;

Answer 2

你可以试试(note\s*=>\s*(?:"|')?)[^'",]+

解释：

(...) - 捕获组

note - 匹配 note 字面意思

\s* - 匹配零个或多个空格

=> - 匹配 => 字面意思

(?:..) - 非捕获组

"|' - 替代：匹配' 或"

? - 匹配前面的模式零次或一次

[^'",]+ - 否定字符类 - 匹配除 '、"、, 以外的一个或多个字符（由于 + 运算符）

Demo

使用\1NOTETAG 作为替代，其中\1 表示第一个捕获组