Perl：转义字符串中的特殊字符以匹配正则表达式

Question

我正在编写bash函数以使用正则表达式处理字符串操作。 Bash内置函数在工作中非常差，我正在使用perl命令来完成它。

例如，这是我的“ strMatch”函数（以bash表示）：

# Usage: if (strMatch <string> <regex>); then...
function strMatch {
    local str="$1"
    local regex="$2"

    local perlCmd='if (qq('$str') =~ m/'$regex'/g) { print "0"; } else  { print "1"; }'
    return $(perl -e "$perlCmd")
}

测试字符串： foo-bar\\rLoading... xx%\\rFile: "some-(filename.ext".
正则表达式： -bar(?:.*?)File: "(.\\*?)\\.ext"

除了一件事外，一切都正常; 我找不到一种方法来适当地转义字符串中的特殊字符以进行匹配（至少对于其中一些字符）。
我是Perl的新手（除了regex语法），所以我尝试了到处都是的各种尝试，但都没有成功。

如果使用'qq' ，则不会处理'（'，这被解释为没有匹配的'）'的捕获组。 我想'['...
=> -e第1行的语法错误，靠近“ qq（foo-bar \\ rLoading ... xx％\\ rFile：“ some-（filename.ext”。）=〜m / -bar \\ r（？：。* ？）文件：“（。*？）\\。ext” / g）{“
=>在-e第1行EOF之前的任何位置都找不到字符串终止符“）”。

使用'quotemeta'会更糟，在'：'，'％'，'\\ r'处中断...
=>反斜杠在-e行1的“ bar \\”附近找到了运算符的预期位置
=>％之前缺少运算符或分号

作为奖励，如果我添加'w'或'W'选项以获得perl警告，它不会输出任何内容！！！ 这是怎么回事？

我只希望字符串能够包含几乎所有内容，包括'％'，'（（'，'['，'\\ r'，'\\ n'......有人知道该怎么做吗？做错了吗？

编辑：回答

谢谢choroba ，使用perl参数$ ARGV就像一个魅力。 我还使用了更美观的ikegami解决方案的修改版本。

现在的功能如下：

# Usage: if (strMatch <string> <regex>); then...
function strMatch {
    local str="$1"
    local regex="$2"

    local perlCmd='exit 1 if ($ARGV[0] !~ m/$ARGV[1]/g)'
    perl -e "$perlCmd" "--" "$str" "$regex"
    return $?
}

Edit2：添加了“-”以停止处理选项。

Answer 1

将字符串和正则表达式作为参数传递（我也简化了Perl代码）：

#!/bin/bash
# Usage: if (strMatch <string> <regex>); then...
function strMatch () {
    local str="$1"
    local regex="$2"

    local perlCmd='print $ARGV[0] =~ m/$ARGV[1]/ ? 0 : 1'
    return $(perl -e "$perlCmd" "--" "$str" "$regex")
}

经过测试

~/test.sh $'foo-bar\rLoading... xx%\rFile: "some-(filename.ext"' '-bar(?:.*?)File: "(.*?).ext"'