perl - 在 perl 中使用正则表达式在两个字符串之间搜索字符串

Question

我想在一个文件中多次检索一个落在两个指定字符串之间的字符串

我试过了，但这不起作用

/(?m)"String 1"!.*?"String2":/;

i want every thing that falls between "String 1" and "String 2"

请帮忙

Answer 1

假设你的输入字符串是这样的

$str='String 1GIANT FISHString 2'

这会起作用

($wanted)= $str =~ /String 1(.*)String 2/

$wanted现在是“巨鱼”

dah.. 文件中的多行...编辑即将到来

可以使用多行，假设输入

String 1Line oneString 2
String 1GIANT FISHString 2
String 1String2

这将获得所有字符串

(@wanted)= $str =~ /String 1(.*)String 2/g

@wanted 有三个条目

('Line one','GIANT FISH','')

在第二个正则表达式中， g for global 查找字符串中的所有匹配项