html - 为什么我用Perl的split函数没有split？

Question

我正在尝试将 HTML 文档拆分为其头部和主体:

my @contentsArray = split( /<\/head>/is, $fileContents, 1);
if( scalar @contentsArray == 2 ){
    $bodyContents = $dbh->quote(trim($contentsArray[1]));
    $headContents = $dbh->quote(trim($contentsArray[0]) . "</head>"); 
}

是我所拥有的。 $fileContents 包含 HTML 代码。当我运行它时，它不会 split 。有谁知道为什么吗？

Answer 1

要拆分的第三个参数是要产生多少个结果，因此如果您只想应用一次表达式，您将传递 2。

请注意，这实际上限制了模式用于拆分字符串的次数(比传递的次数少一次)，而不仅仅是限制返回结果的数量，因此:

print join ":", split /,/, "a,b,c", 2;

输出:

a:b,c

不是:

a:b