使用单个正则表达式匹配多行

Question

我有一个文件，其中包含

人物：男

宠物：狗，猫，

人物：女

宠物：狗、猪

像这样有很多人的数据 我只想获取男性的数据。 我正在尝试匹配两条线。那是行不通的

    while{[gets $fh line] > 0} {
     if {[regexp {(person: male.*)\n(pets :.*)} $line match submatch]} {
    puts $match 
    puts $submatch
    }

 }

Answer 1

你的问题是你一次只读一行。如果您在（read）中读取整个文件，那么您可以进行多行匹配。

如果您正在进行多行匹配，您可能会发现 -line 到 regexp 的选项很有用，因为这意味着如果您明确地将换行符放入模式中，它只会匹配换行符。