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

Question

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

Answer 1

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

Answer 2

/#([^#]+)#/适合我。

一些语法注释：

标记正则表达式开头和结尾的
• //分隔符字符
• #文字哈希标记
• []一个角色类

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

• [^#]任何不是井号的字符
• [^#]+一个或多个此类字符
• ([^#]+)上述capturing group

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

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

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

Answer 3

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

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