如何处理Perl正则表达式中的每个ASCII字符（包括正则表达式特殊字符）？

Question

我有以下代码中的Perl：

if (index ($retval, $_[2]) != -1) { 
    @fs = split ($_[2], $_[1]); 

$_[2]是分隔符变量和$_[1]是定界符可以在存在字符串（$_[0]在别处使用）你可能已经猜到，此代码是在。子程序由这些变量名称。

无论如何，在我的问题上，当我的分隔符是无害的，如'a'或':'代码的工作原理应该是这样。但是，当它被Perl正则表达式解析时，就像'\'字符一样，那么它就不能像它应该的那样工作。这是有道理的，因为在分割功能的Perl会看到类似这样的：

split (/\/, $_[1]); 

这是没有意义的它，因为在所有它想这样的：

split (/\//, $_[1]); 

所有这一切在心中

所以我问题，我无法回答，是这样的：“我该如何做到这一点，以便我将$_[2]或所有ASCII字符中的分隔符视为应该是的字符，而不是解释为其他字符？”

由于提前，

罗伯特

Answer 1

您可以使用quotemeta逃脱$_[2]适当所以它会在正则表达式的工作，而不会错位。这应做到：

my $quoted = quotemeta $_[2]; 
@fs = split($quoted, $_[1]); 

或者，你可以使用\的Q你的正则表达式来逃避它。请参阅perlre中的“转义序列”。

Answer 2

split /\Q$_[2]/, $_[1] 

Answer 3

作为一个附注，我怀疑$_[1]和$_[2]变量是指自动传入的@_子数组。

这是有益的 - 将节省你不少一些解释这里本身使你的代码更容易理解 - 和通常的做法是使用像在子开始的以下内容：

sub mysub { 
    my ($param1, $string, $delim) = @_; 
    # ... 
}