Perl正则表达式'e'（eval）修饰符s ///

Question

我在理解这个简单的/ e正则表达式修饰符的使用方面有点麻烦。

my $var = 'testing'; 
$_ = 'In this string we are $var the "e" modifier.'; 

s/(\$\w+)/$1/ee; 

print; 

返回：“在此字符串中，我们正在测试”e“修饰符。”

我看不出为什么需要两个'e'修饰符。据我所知，$ 1应该从字符串中捕获'$ var'，然后一个'e'修饰符就可以用它的值替换该变量。然而，我必须误解某些东西，因为只用一个'e'修饰符来尝试上面的代码并不会明显地替换字符串中的任何东西。

不好意思问这么简单的问题！

谢谢。

Answer 1

这不完全是一个“简单”的问题，所以不要打垮自己。

问题在于，对于单个/e，RHS被理解为其代码为eval的结果用于替换。

什么是RHS？这是$1。如果您评估为$1，则会发现包含的字符串为$var。它不包含所述变量的内容，只是$后跟v后跟a后跟r。

因此必须两次对其进行评估，一旦转成$1$var，然后再次打开的$var先前的结果为字符串"testing"。你可以通过s operator上的双ee修饰符来实现。

你可以用一个/e与其中两个运行它来很容易地检查它。这里有一个演示和一个使用符号解引用的第三种方式 - 它们引用包符号表，仅对包变量起作用。

use v5.10; 

our $str = q(In this string we are $var the "e" modifier.); 
our $var = q(testing); 

V1: { 
    local $_ = $str; 
    s/(\$\w+)/$1/e; 
    say "version 1: ", $_; 

} 

V2: { 
    local $_ = $str; 
    s/(\$\w+)/$1/ee; 
    say "version 2: ", $_; 
} 

V3: { 
    no strict "refs"; 
    local $_ = $str; 
    s/\$(\w+)/$$1/e; 
    say "version 3: ", $_; 
} 

运行时，产生：

version 1: In this string we are $var the "e" modifier. 
version 2: In this string we are testing the "e" modifier. 
version 3: In this string we are testing the "e" modifier. 

Answer 2

要明确的是，s//ee形式不改变你的正则表达式模式或正则表达式的解释都没有。在执行正则表达式之后，它是可选的替换边字符串处理。 （见​​）

的e或ee一下就混合到s/PATTERN/REPLACEMENT/msixpodualgcer形成图案侧正则表达式的选项。

从perlop中：

选项如下具有m //使用 添加以下替换 特定选项：

e Evaluate the right side as an expression. 
ee Evaluate the right side as a string then eval the result. 
r Return substitution and leave the original string untouched. 

你可以看到同样的e VS ee类型在非正则表达式情况下的行为，如此示例所示：

#!/usr/bin/perl 
use warnings; 
use strict; 

my $var = "var's contents"; 
my $str='"-> $var <-"'; 
print eval('$str'), "\n";  # equivalent to s//e 
print eval(eval('$str')), "\n"; # equivalent to s//ee 

输出：

"-> $var <-" 
-> var's contents <- 

Answer 3

尝试从最新的perl的包重命名工具：

rename -v 's/\b(\w)/uc($1)/eg' * 

这里，模式\b查找单词边界，e修改使评价替代，并g取代所有发生。

您还可以重命名以首字母大写：

rename -v 's/\b(\w)/uc($1)/eg' * 
rename -v 's/^(\w)/lc($1)/e' * 
rename -v 's/\s+//g' *