如何使 Perl 正则表达式预编译以在运行时节省时间

Question

我有一个如下所示的 Perl 函数，它需要更长的时间来执行。 （注意：这个函数被调用超过 10,000 次。）

在谷歌上搜索了一些之后，我发现 如果我可以预编译 Perl 正则表达式，那么执行时间可能会减少。

如何修改 Perl 正则表达式以减少时间？还是有更好的解决方案？

sub some_func {
    my $var1=shift;
    my $var2=shift;

    if (!($var1 =~ /^UTF-?8$/)) {
         print "Do something important\n";
    }
    if ($var2 =~ /$some_global_string/i) {
         print "Do something important\n";
    }
}

例如，$var2 可以是

"character string with maximum 4096 character, Including html character as string"

$some_global_string 可以是：

"string as $var2 but max length of 256 character"`

Answer 1

http://perldoc.perl.org/perlop.html#Regexp-Quote-Like-Operators

my $RE1 = qr/^UTF-?8$/;
my $RE2 = qr/$some_global_string/i;
....
if ($var1 !~ /$RE1/) {...};
...
if ($var2 =~ /$RE2/) {...};