Perl Regex在两个相同字符之间获取子字符串

Question

给定一些字符串originalString = "#SomeWord# More words" ，我希望能够从originalString获得子字符串"SomeWord" 。

Answer 1

my $substr = (split /#/, $originalString)[1];

Answer 2

/#([^#]+)#/对我有用。

一些语法说明：

• //标记正则表达式开始和结束的定界符
• #文字哈希标记
• []字符类

上面的正则表达式的解释：

• [^#]任何非井号的字符
• [^#]+一个或多个此类字符
• ([^#]+)的捕获组

在这种情况下，正则表达式将查找两个＃之间的任何非＃字符。 这是一个完整的示例：

my $foo = "#SomeWord# More words";

if ($foo =~ /#([^#]+)#/) {
    print "$1\n";
} else {
    print "no match\n";
}

Answer 3

您还可以使用正则表达式：

$originalString=~ /\#([^#]+)\#/;
# Now $1 holds your required string