如何處理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) = @_; 
    # ... 
}