5to6-perlvar

Perl5到Perl6指南 - 特殊变量

概述

本文档旨在全面（希望是）列出说明Perl5特殊变量在Perl6体系中的实现，必要时对两者差异进行说明。

说明

本文档尝试指导读者Perl5特殊变量过度到Perl6相应的用法。关于完整Perl6特殊变量文档，请参考相关Perl6文档。

特殊变量

通用变量

$ARG
$_

谢天谢地，$_还像Perl5中那样是一般默认变量，Perl6中的主要差异是对其通过. 调用方法。例如,Perl5中的say $_在 Perl 6中可以用$_.say表示。而且，由于它是默认变量，我们可以省略它的名字，所以.say表达也是正确的。
@ARG
@_

因为Perl6有了函数签名，你的参数通过签名设置，不再依赖@_。实际上，如果你使用函数签名，再使用@_也不能覆盖已经存在的签名。

然而，如果你没有使用函数签名，@_将会像Perl5那样包含你传递给函数的实参。同时，对于 $_，你可以对其调用对象方法。对@_你需要指名调用方法，比如 @_.shift可以工作，.shift则会报错。
$LIST_SEPARATOR
$"

截止当前，Perl6中并没有列表分隔符的替代变量。Lhttps://design.perl6.org/S28.html|S28 设计文档也没有提到这样的变量。所以不要过多关注它。

Perl6中，可以通过C<$*PROGRAM-NAME>获得到程序的名字。注意：C<$0>在Perl6中包含了匹配结果的第一个捕获（即捕获变量现在从$0开始而不是$1）

$PROCESS_ID
$PID
$$

$$被$*PID替换。
$PROGRAM_NAME
$0

Perl6中，可以通过$*PROGRAM-NAME获得到程序的名字。

注意：$0在Perl6中包含了匹配结果的第一个捕获（即捕获变量现在从$0开始而不是$1）
$REAL_GROUP_ID
$GID
$(

Perl 6中组信息通过$*GROUP操作，它是一个IntStr类型的对象所以，可以把它当做一个字符串或者一个数字上下文。因此，组id可以通过$*GROUP.Numeric 获得，组名可通过$*GROUP.Str取得。

$EFFECTIVE_GROUP_ID
$EGID
$)

目前，Perl6貌似还不支持获取有效组编号（effective group id）。
$REAL_USER_ID
$UID
$<

Perl 6中用户信息通过$*USER操作，它是一个IntStr类型的对象所以，可以把它当做一个字符串或者一个数字上下文（和$*GROUP组信息类似）。因此，用户id可以通过$*USER.Numeric获得，用户名可通过$*USER.Str取得。

$EFFECTIVE_USER_ID
$EUID
$>

目前，Perl6貌似还不支持获取有效用户编号（effective user id）。
$SUBSCRIPT_SEPARATOR
$SUBSEP
$;

Perl6中没有下标分隔符变量（subscript separator variable），如果你的Perl5代码还在使用它，那代码几乎肯定是非常老了。
$a
$b

$a和$b在Perl6中没有特殊的含义，sort()并不区别对待它们，它们只是一般变量。

他们的功能被扩展为更加通用的占位符参数，占位符变量用twigil ^声明。例如，$^z。它们可以在裸露块或者一个没有显式参数列表的子例程内使用。参数将会以Unicode顺序赋值给相应的占位符变量，也就是说即使变量在块内以($^q, $^z, $^a)形式出现，它们被赋值的顺序将会是($^a, $^q,$^z)。因此：

想更详细了解占位符变量，请参考this page
%ENV

%ENV已经被$*ENV取代了，注意这个哈希的键可能不同于Perl5中的。在写下本文时，唯一的不同似乎是OLDPWD并没有出现在Perl6的 %*ENV 中。
$OLD_PERL_VERSION
$]

perl 6在线版本中是$*PERL特殊变量，是一个对象。向前兼容版本通过$*PERL.version，他返回信息类似于v6.c。Perl解释器完整直接获取是通过$*PERL.Str，他会返回类似Perl 6 (6.c)的信息。

$SYSTEM_FD_MAX
$^F

虽然设计文档(S28)表明将会变成$*SYS_FD_MAX，但现在并没有实现。
@F

[需要深入研究] 关于这个功能目前有些混乱，设计文档S28表明Perl5中的@F被@_取代，但是目前并不清楚它如何工作。同时，目前还有一些有争议的问题，Perl5到Perl6的迁移文档表明rakudo还没有实现选项-a和-F。
@INC

在Perl6中已经去除，请用“use lib”操作需要搜索的模块仓库路径。与@INC最接近的只有$*REPO 了，但是因为Perl6有预编译功能，它和@INC的工作方式完全不同。
```
   # 打印编译模块仓库的列表
   .say for $*REPO.repo-chain;
```
%INC

已去除，因为各个仓库负责记住哪些模块已经加载了。你可以获取所有加载模块（编译单元）的列表，比如：
$INPLACE_EDIT
$^I

S28建议使用$*INPLACE_EDIT，但是还未完成。
$^M

S28建议使用$*EMERGENCY_MEMORY，但是还未完成
$OSNAME
$^O

这个变量还不明确，可取决于你对“操作系统的名称”如何理解，S28 设计文档中有三种不同的建议，对应三种不同的答案。

关于运行时环境信息现在有三个对象保存其信息：

= S2<$*KERNEL 提供运行操作系统内核的信息 = $*DISTRO 提供操作系统发行版的信息 = $*VM 提供Perl6虚拟机相关的信息

对以上的对象，通常都支持一下方法:

version提供了组件的版本号
name提供了组件的简缩名
auth提供了组件的已知作者

以下面的代码为例，打印以上组件的信息：

for $*KERNEL, $*DISTRO, $*VM -> $what {
    say $what.^name;
    say 'version '  ~ $what.version
        ~ ' named ' ~ $what.name
        ~ ' by '    ~ $what.auth;
}

# Kernel
# version 4.10.0.42.generic named linux by unknown
# Distro
# version 17.04.Zesty.Zapus named ubuntu by https://www.ubuntu.com/
# VM
# version 2017.11 named moar by The MoarVM Team

以上对象的name的Str方法将返回简略版本信息。

所有对象的每个方法，都有益于辨别当前运行时实例，更多信息用.^methods去内审上面的信息。

%SIG

[需要深入研究]没有等价的变量，S28显示此功能应该Perl6中的事件过滤器(event filters)以及异常转换（exception translation）处理。
$BASETIME
$^T

被$*INIT-INSTAN取代。不像Perl5，它不是从公元纪元开始的秒数，而是一个Instant对象，使用以原子秒为单位的小数表示。
$PERL_VERSION
$^V

和$]一样，该变量也被$*PERL.version取代。
${^WIN32_SLOPPY_STAT}

Perl6不提供类似变量。
$EXECUTABLE_NAME
$^X

被$*EXECUTABLE-NAME取代。注意到Perl 6中还有$*EXECUTABLE是个对象。

正则相关变量

性能问题

下面会讲到，$`, $&和$'在Perl6中已被删除。主要通过$/的变体取代，随着它们的消除， Perl5中与之相关的性能问题不会再产生。

$<digits> ($1, $2, ...)

这些在Perl6中保留下的变量和Perl5中的功能一样，唯一区别是它们现在从$0开始而不是之前的 $1。此外，它们是匹配变量$/的下标项的同义词，例如，$0等价于$/[0]，$1等价于$/[1]，以此类推。
$MATCH
$&

$/现在包含着匹配的对象，所以Perl5中$&的行为可以对它字符串化来获得, 例如~$/。$/.Str也是OK的，但是~$/是更通用的形式。
${^MATCH}

因为前述的性能问题已经不再存在了，所以这个变量在Perl6中不再使用了。
$PREMATCH
$`

被$/.prematch取代。
${^PREMATCH}

因为前述的性能问题已经不再存在了，所以这个变量在Perl6中不再使用了。
$POSTMATCH
$'

被$/.postmatch取代。
${^POSTMATCH}

因为有关的性能问题被解决，所以改变量被去除。
$LAST_PAREN_MATCH
$+

在Perl6已去除，可以通过使用$/[*-1].Str。($/[*-1]将会是匹配对象，而不是实际的字符串。想了解更多细节请浏览下面这些文档：
[ ] routine
Whatever

...还有
https://design.perl6.org/S02.html#line_1126

...虽然设计文档并不总是最新的.
$LAST_SUBMATCH_RESULT
$^N

S28建议使用$*MOST_RECENT_CAPTURED_MATCH，但是现在并没有任何变量与$^N 相符合。
@LAST_MATCH_END
@+

和大多数正则表达式相关的变量一样，这个变量的功能或者至少一部分，由Perl6中的变量 $/提供。或者，在这种情况下，数字变量是它的下标对象的别名，偏移可以使用.to 方法得到，即第一个偏移是$/[0].to，它的同义词是$0.to，Perl5提供的$+[0] 由$/.to提供。
%LAST_PAREN_MATCH
%+

同样，它的功能也被挪到$/中，以前的$+{$match}，现在为$/{$match}。
@LAST_MATCH_START
@-

类似于使用.to方法取代@+,@-被$/以及它的变种的.from方法取代。第一个偏移$/[0].from等价于 $0.from，Perl5中的$-[0]现在用$/.from表示。
%LAST_MATCH_START
%-

类似于%+，%-{$match}被$/{$match}取代。
$LAST_REGEXP_CODE_RESULT
$^R

无相应的变量。
${^RE_DEBUG_FLAGS}

无相应的变量。
${^RE_TRIE_MAXBUF}

无相应的变量。

文件句柄相关变量

$ARGV

正读取文件的名字现在通过$*ARGFILES.filename得到。
@ARGV

@*ARGS包含了当前的命令行参数。.
ARGV

被$*ARGFILES取代。
ARGVOUT

因为-i命令行选项现在还没有实现，目前-i还没有类似ARGVOUT的变量
$OUTPUT_FIELD_SEPARATOR
$OFS
$,

无相应的变量。
$INPUT_LINE_NUMBER
$NR
$.

没有直接可以取代它的变量。

对IO::Path或者IO::Handle类型，可在递归中使用lines属性。可以用zip元操作符zip指带范围:
```
  for 1..* Z "foo".IO.lines -> ($ln, $text) {
      say "$ln: $text"
  }
  # OUTPUT:
  # 1: a
  # 2: b
  # 3: c
  # 4: d
```
对IO::CatHandle类型($*ARGFILES 是这种)，你可以用on-switch钩子，在句柄变化时候重置行号，并且通过手动增加。

你也可以用IO::CatHandle::AutoLines 和LN简单地实现这个功能。
$INPUT_RECORD_SEPARATOR
$RS
$/

可以通过文件句柄的.nl-in方法获得，例如$*IN.nl-in。
$OUTPUT_RECORD_SEPARATOR
$ORS
$\

通过文件句柄的.nl-out方法获得，例如$*OUT.nl-out。
$OUTPUT_AUTOFLUSH
$|

由于没有缓冲，目前还没有该选项。目前支持实验性质的open。没有全局变量， TTY处理,默认无缓冲，其他地，对特定的IO::Handle,Lopen设置out-buffer为零或者使用!out-buffer。
${^LAST_FH}

未实现。

格式相关变量

Perl6中没有内建的格式变量。

错误变量

由于Perl 6中错误变量发生了变化，本文档不会分别介变化的细节。

引用Perl 6的文档，"$!是错误变量"，就这么多。所有的错误变量看来都被$!吃了，与Perl6的其它部分一样，它是一个对象，根据用法的不同错误类型返回不同的结果或者exceptions。

特别地，当处理exceptions时候，$!会提供有关抛出异常的信息，假设程序没有被中止的话：

try {
    fail "Boooh";
    CATCH {
        # within the catch block
        # the exception is placed into $_
        say 'within the catch:';
        say $_.^name ~ ' : ' ~ $_.message;
        $_.resume; # do not abort
    }
}

# outside the catch block the exception is placed
# into $!
say 'outside the catch:';
say $!.^name ~ ' : ' ~ $!.message;

以上代码输出如下：

within the catch:
X::AdHoc : Boooh
outside the catch:
X::AdHoc : Boooh

因此，如前所述，$!变量保存了异常对象。

编译器相关变量

$COMPILING
$^C
$^D

目前没有相似的变量。
${^ENCODING}

尽管在Perl5中弃用了，不过可能会有某种相似的$?ENC，但是目前还不确定。
${^GLOBAL_PHASE}

目前没有相似的变量。
$^H
%^H
${^OPEN}

Perl6可能有也可能没有与之相似的变量，但是这些是内部变量，你首先应该是避免使用他们— 这是肯定的，不然Perl6就不会需要你阅读这个文档了。。。
$PERLDB
$^P

Perl6和Perl5的调试器差异较大，所以并没有提供类似的变量。
${^TAINT}

S28申明该变量“待定”，目前还未提供。
${^UNICODE}
${^UTF8CACHE}
${^UTF8LOCALE}

Unicode相关的变量在Perl6中貌似不存在，但是(可能) 会有类似于$?ENC的东西。然而，这还未完全确定。

弃用或被移除的变量

不言而喻，因为这些已经从Perl5中删除的变量，没有必要告诉你在Perl6中如何使用它们。

桔子 / perl6doc

5to6-perlvar

Perl5到Perl6指南 - 特殊变量

概述

说明

特殊变量

通用变量

正则相关变量

性能问题

文件句柄相关变量

格式相关变量

错误变量

编译器相关变量

弃用或被移除的变量

简介

发行版

贡献者

近期动态

桔子 / perl6doc .gitee-modal { width: 500px !important; }

5to6-perlvar

Perl5到Perl6指南 - 特殊变量

概述

说明

特殊变量

通用变量

正则相关变量

性能问题

文件句柄相关变量

格式相关变量

错误变量

编译器相关变量

弃用或被移除的变量

简介

发行版

开源评估指数源自 OSS-Compass 评估体系，评估体系围绕以下三个维度对项目展开评估：

贡献者

近期动态

搜索帮助

桔子 / perl6doc