Perl正则表达式使用花括号提取匹配项

Question

我测试了以下代码

#! /usr/bin/perl 

use strict;
use English;

#this code extracts the current scripts filename 
#by removing the path from the filepath

my $Script_Name = $PROGRAM_NAME;

${Script_Name} =~ s/^.*\\//; #windows path

#${Script_Name} =~ s/^.*\///; #Unix based path

print $Script_Name;

而且我不明白为什么这些花括号在不使用/ r修饰符的情况下提取匹配项。 谁能解释为什么以及如何运作，或者向我介绍一些文档？

Answer 1

你有点困惑！

括号没有区别。 ${Script_Name}与$Script_Name相同。

您的代码首先将脚本文件的整个路径从$PROGRAM_NAME $Script_Name到$Script_Name 。

然后替换操作将删除直到最后一个反斜杠（包括最后一个反斜杠）的所有内容，仅保留文件名。

如果您想修改一个字符串并将修改的结果放入另一个字符串，则将使用/r修饰符，因此您可以一步编写代码，如下所示：

$Script_Name = $PROGRAM_NAME=~ s/^.*\\//r