Perl rename命令内部工作原理及替换命令执行逻辑验证

rename是一款用来批量重命名文件的Perl脚本，它处理文件重命名的核心逻辑就一行代码：

$sub->() for ($file);

当你从命令行传入替换命令's/\.bak$//'时，你的理解完全正确，内部执行逻辑确实可以拆解成你写的这样：

$ perl
$code = 's/\.bak$//'
$eval = eval "sub { $code }"
$sub = $eval
$sub->() for ('a.b.c.bak')
__END__

补充个细节：rename在调用这个子函数前，会把当前文件名赋值给Perl的默认变量$_，这样替换表达式才能直接作用在文件名上——这部分是隐含在上下文里的，你的示例没写出来，但核心的函数封装和调用逻辑完全没问题。

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