Perl 内部变量。下一个表达式是否相同？

Question

我有两种表达方式:

${ 'main::' }{ "_<$filename" }

和

${ "::_<$filename" }

这两个表达式相同吗？

Answer 1

不，但以下是等价的:

${"_<$filename"}         # When this expression is found in package main
${"::_<$filename"}
${"main::_<$filename"}

${ $::{"_<$filename"} }
${ ${'::'}{"_<$filename"} }

${ $main::{"_<$filename"} }
${ ${'main::'}{"_<$filename"} }

这些是指根/主命名空间中的变量，其名称由 "_<$filename" 生成.

---

作为一个更清晰的例子，以下都是等价的(假设前两个代码编译在包 Foo::Bar 中):

@moo                                  # Via hardcoded, unqualified name
@{'moo'}                              # Via symref using unqualified name

@Foo::Bar::moo                        # Via hardcoded, qualified name
@{'Foo::Bar::moo'}                    # Via symref using qualified name

@{ *Foo::Bar::moo }                   # Via hardcoded glob
@{ *{'Foo::Bar::moo'} }               # Via symref to glob

@{ $Foo::Bar::{moo} }                 # Via glob via hardcoded package
@{ ${'Foo::Bar::'}{moo} }             # Via glob via symref to package

@{ $Foo::{'Bar::'}{moo} }             # Via glob via hardcoded parent package
@{ ${'Foo'}::{'Bar::'}{moo} }         # Via glob via symref to parent package

@{ $::{'Foo::'}{'Bar::'}{moo} }       # Via glob via root package
@{ $main::{'Foo::'}{'Bar::'}{moo} }   # Same

---

Perl 允许将符号名称用作引用。

$ perl -e'%h = ( a => 4, b => 5 ); my $ref = "h"; CORE::say $ref->{a};'
4

这些被称为“符号引用”(使用 use strict; 时不允许使用它们)。下面使用main::作为符号引用:

${ 'main::' }{ "_<$filename" }

但是，这样做没有意义。由于变量的名称无论如何都是硬编码的，我们不妨使用以下内容:

$main::{ "_<$filename" }

这不仅更简单，而且在使用 use strict; 时也是允许的.

---

但是 %main:: 是什么？ ？嗯，这是包的符号表 main . %main:: 的键是包中存在的符号(变量)的名称 main (没有任何印记)。

%main:: 的值是符号表条目。我们称这些为“typeglobs”，或简称为“globs”。取消引用一个 glob，就好像它是一个引用访问适合取消引用的类型的变量。例如，

$main::{a}

返回

*main::a       # A glob

和

${ $main::{a} }

返回

$main::a

这意味着以下将返回一个 glob 到 main 中的变量名称由 "_<$filename" 生成的命名空间

$main::{ "_<$filename" }

---

主命名空间也是根命名空间。这意味着

$main::a

和

$::a

两者指的是同一个变量。这也意味着

%main::

和

%::

两者指的是同一个变量。这也意味着

$main::{ "_<$filename" }

和

$::{ "_<$filename" }

两者都返回相同的 glob。

---

我们已经确定以下命令返回一个 glob 到根/主命名空间中的符号，其名称由 "_<$filename" 生成

$::{ "_<$filename" }

我们还确定以下内容引用了 root/main 中的标量，其名称由 "_<$filename" 生成:

${ $::{ "_<$filename" } }

最后，我们还确定以下是引用相同标量的符号引用:

${ "::_<$filename" }