代码之家 › 专栏 › 技术社区 › daxim Fayland Lam

如何只从“perl6::controls”导入“for”?

perl

daxim Fayland Lam · 技术社区 · 6 年前

测试用例:

use 5.026;
use Perl6::Controls qw(for);

for (1..10) -> $n {
    say $n;
}

loop {};

期待:

没有包或对象引用,无法调用方法“loop”

得到了:

无限循环

2 回复 | 直到 6 年前

mob 6 年前

use Perl6::Controls qw(for);
BEGIN {
    delete $^H{'Keyword::Simple/keywords'}{"loop"};
}
...

我偶然发现你的剧本 B::Deparse .

要选择和选择你想要保留的关键字,你可以说

use Perl6::Controls;
BEGIN {
    my @keep = ...;    # e.g.  @keep = qw(for);
    my %keywords;
    @keywords{@keep} = @{$^H{'Keyword::Simple/keywords'}}{@keep};
    $^H{'Keyword::Simple/keywords'} = \%keywords;
}

JGNI 6 年前

不能。请查看的源代码 Perl6::Controls 它使用自己的导入方法定义所有新关键字 Keyword::Declare . 它忽略在使用行上传递的任何参数。

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

2 年前

user17227456 · Perl CLI代码无法追加字符串行

2 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

3 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

3 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

3 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

3 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

3 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

7 年前

Pranay Nanda · 使用regex解析许可证文件

7 年前