如何在Perl中用含*的变量匹配另一个变量的正则表达式？

你写的代码里，直接把带*的变量放进正则表达式是行不通的——因为正则里的*是量词（表示前面的字符出现0次或多次），不是通配符。比如$define_file_name = "class*"放进正则后，实际匹配的是^class*$，意思是字符串以c开头，后面跟着0个或多个l，再加上ass，自然匹配不了classA1。

要实现通配符*的效果，得把它转换成正则里的.*（匹配任意字符任意次数），同时还要注意转义变量里可能存在的其他正则特殊字符（比如.、+、?这些），避免它们被当成正则语法解析。

正确的实现步骤： #

• 先用quotemeta函数转义变量中的所有正则特殊字符，把它们变成普通字符。
• 再把转义后的\*替换成.*，这样就把通配符转换成正则的任意匹配规则。

修改后的代码示例： #

my $define_file_name = "class*";
my $file_name = "classA1";

# 处理通配符，转换成正则表达式
my $regex = quotemeta($define_file_name);
$regex =~ s/\\\*/.*/g; # 把转义后的\*替换成.*

if ($file_name =~ m/^$regex$/) {
    print "File Name Regex matched\n";
}

简化写法（适合确定变量里只有*是特殊通配符的情况）： #

如果能确定$define_file_name里只有*是需要处理的通配符，没有其他正则特殊字符，也可以直接替换：

my $define_file_name = "class*";
my $file_name = "classA1";

my $regex = $define_file_name;
$regex =~ s/\*/.*/g; # 直接把*换成.*

if ($file_name =~ m/^$regex$/) {
    print "File Name Regex matched\n";
}

不过推荐用第一种方法，因为quotemeta能处理所有正则特殊字符，比如如果你的变量是class.*name*，直接替换会出问题，而用quotemeta转义后再替换就不会出错。

内容的提问来源于stack exchange，提问作者Isuru Sachitha