Perl6的开发如何做到自动化？其实很简单，只需要一个应用Tomtit。

Tomtit是一个全新的Perl6任务运行器，可让你很便捷地自动执行日常任务。

本文中，我们将展示如何使用Tomtit实现Perl6开发自动化，我们以实例展示Perl6开发中的典型场景：设置git存储库、测试本地源代码、安装本地源代码、发布CPAN模块。关于Tomtit的详细介绍请参考文章(https://dev.to/melezhik/one-tomtit-for-it–1j3f)。

本文译自Alexey Melezhik 的博客，原文链接 https://dev.to/melezhik/automation-of-perl6-development-workflow-through-the-tomtit-task-runner-10jj

安装

Tomit的安装很简单只需通过Perl6 模块生态系统命令zef：

zef install Tomtit

现在让我们从远程git存储库获得本实例应用程序源代码：

git clone $ git-repo

Tomtit实例

本文的内容限制为在Perl6开发和发布时典型的应用场景：设置git存储库、测试本地源代码、安装本地源代码、发布CPAN模块。

首先我们为每个涉及的实例定义tomtit场景。场景配置文件位于.tom目录中，配置文件为纯Perl6脚本，同这些脚本调用Tomtit API。

案例1.设置git存储库。

在新建应用时候，先要设置用户和电子邮件，这样可以支持push到远程git仓。我们也希望在缓存中保存git密码。防止每次手动输入，这些任务都可以在.tom文件中配置：

.tom/set-get.pl6:

task-run “set git”, “git-base”, %(

  email                => ‘[email protected]’,

  name                 => ‘chongchong’,

  config_scope         => ‘local’,

  set_credential_cache => ‘on’

);

实例中的工作流程有点复杂，需要将源代码推送到GitHub和BitBucket两个远程库。

为push操作的任务场景配置也很容易：

.tom/push-gh.pl6:

# push到 github

bash “git push origin master”;

.tom/push-bb.pl6:

# push 到bitbucket

bash “git push bb master”;

.tom/push.pl6:

# push到github和bitbucket

EVALFILE “.tom/push-bb.pl6”

EVALFILE “.tom/push-gh.pl6”

案例2.测试本地源代码。

对于许多Perl6项目，会通过zef test测试在t/目录中的单元测试用例，本例子中我们还要做Outthentic测试并且验证META6.json文件，看看是否有任何JSON语法错误,任务的配置实例如下：

.tom/test.pl6:

task-run “check json files”, “json-lint”, %( path =>  “{$*CWD}” );

bash “zef test .”;

bash “sh run-test.sh”;

案例3.安装源代码。

该操作简单，只是在当前工作目录的下执行zef install命令。

.tom/install.pl6:

bash “zef install . –force-install”;

案例4.打包成CPAN模块，并自动发布

实例中我们使用App::Mi6工具将Perl6模块打包并发布到CPAN，执行该操作首先要在它需要通过~/.pause配置CPAN Update的用户和密码，下面是该任务的配置文件：

.tom/set-pause.pl6:

my $password = prompt(“enter your CPAN password: “);

template-create “/home/{%*ENV<USER>}/.pause”, %(

  mode => ‘700’,

  variables => %(

    user      => ‘chongchong’,

    password  => $password

  ),

  source => q:to /TEMPL/

  user      [%= user %]

  password  [%= password %]

  TEMPL

);

发布的任务配置就简单了：

.tom/release.pl6:

zef “App::Mi6”;

bash “mi6 release”;

工作流程

当tomtit场景准备就绪时，开发工作流就变的简单明了，当一切都配置到位的时候：

1、chekout应用程序源代码：

git clone $git-repo

2、安装Tomtit：

zef intall Tomtit

3、列出可用的tomtits任务：

tom –list

4、修改源代码

vim foo/bar/app.pl6

5、运行测试：

tom test

安装应用：

tom install

6、设置git repo：

tom git-setup

7、提交更改

git commit -a

8、推送更改：

tom push

9、设置PAUSE帐户凭据：

tom set-pause

10、发布到CPAN：

tom release

结论

本文中，我们实现了Perl6开发的自动化任务执行过程，所有操作只需要Tomtit就可以实现。更多典型任务请关注官方文档和探索。

Tomtit介绍

Tomtit是基于Perl6语言开发的任务执行器，它方便好用、任务定义快捷简洁，内置数十个常用场景任务插件，利用该雀儿帮我们自动化Perl/Perl6以及更多的语言开发任务。

最适合Perl5/Perl6开发人员,也支持其他开发场景使用；

支持Perl6语言的编程API；

自带许多常见任务任务配置：运行Bash脚本、创建文件和启动/停止服务 ，更多的任务脚本详见：

https://github.com/melezhik/sparrowdo/blob/master/core-dsl.md

它有几十个插件，详细列表请访问http://sparrowhub.org

支持扩展， 你可以使用自己喜欢的语言并编写新的插件来满足的特定需求。

最重要的是作为底线，它可以帮助我们轻松完成常见的任务，但不限于静态DSL，而是允许你使用现代化的强大的Perl6语言来配置任务场景。说这么多，你一定心动了把，那让咱们开始把。

安装

Tomtit是一个标准的Perl6模块，可以使用Perl6模块生态系统包管理软件zef安装。

zef install  Tomtit

成功安装后，Tomcatit在你的shell环境增加tom -命令行客户端来执行具体的任务。

启动

你需要一个系统引启动器（*）来引导Tomtit的内部任务器的运行，实际上就是一个简单的命令

 tom –bootstrap

注意：你需要sudo权限来启动该任务器。

完成启动后，你就可以执行任务脚本，接着让我们来看看典型的tomtit工作流程。

Tomtit工作流程

通常使用tomtit的工作流程是先定义方案（任务脚本），然后运行它们时。它基于任务为中心的方法非常便捷，我们可以检查应用程序的源代码并运行一些相关的任务。比如，我们有一个应用程序源代码，我们只需执行3个标准操作：

build,测试和安装

我们定以后任务方案后，我们命名他们然后构建，测试和安装。如果使用make程序来构建项目，则方案对应make对应参数的3次调用。让我们创建我们的第一个Tomtit场景：

git checkout $git-repo

mkdir .tom

nano .tom/build.pl6

nano .tom/test.pl6

nano .tom/install.pl6

每个场景的代码和bash命令运行make一样简单：

.tom/build.pl6:

bash “make”

.tom/test.pl6:

bash “make test”

.tom/install.pl6:

bash “sudo make install”

程序化API

tomtit的任务方案场景的脚本是用Perl6编写的，对应于调用不同的任务，但这些场景不一定是有限的任务调用，它们只是Perl6程序，基于Perl6的强大功能你可以使用它做任何事情。

Tomtit中有两种语法不同的任务。你通过任务运行函数调用的第一个是快捷方式，它与task-run几乎相同但具有助记符名称，有时更容易签名。

在上述make实用程序的场景中，我们使用bash快捷方式调用一段Bash代码。tomtie可调用的完整快捷方式列表，请浏览：

https://github.com/melezhik/sparrowdo/blob/master/core-dsl.md

任务和插件

换句话说，任务运行和快捷方式只是一种调用任务块的方法，如果代码从SparrowHub下载，脚本存储库然后由sparrow内部脚本运行执行，虽然不之前没有提到过，但实际上zoo-repository支持更多的birds！

这些小脚本或任务也叫Sparrow插件。Tomtits的任务场景基对应于一个执行的Sparrow插件或任务的列表。

命令行API

通过运行tom –list，你可以到当前可用的所有任务场景：

[scenarios list]

build

test

install

一旦定义了任务方案，就可以通过tom –run=$scenario命令运行它们。例如：

tom run = build，tom run = test等等。

要回想一下你运行的最后一个场景是什么，可使用tom –last命令。更多文档，请参考tomtitgithub页面的tom命令行的相关说明。

自定义任务

就上上文中我们提到的，我们不必受限于Tomtit场景中运行Bash和官方一些标准的任务场景。我们可以下载和自己开发相关插件，可以实现各种形形色色的任务。

例如，我们创建一个用用户参数（如用户名和电子邮件）配置本地git存储库的方案。你要clone一个新项目时，通常需要对其做修改并提交修改，最后push到远程库。那么本任务就是帮助你实现这个任务，并能自动缓存用户账号信息，以后不需要再输入用户名和密码（http/https）。

.tom/git-setup.pl6:

task-run “set git”, “git-base”, %(

  email                => ‘[email protected]’,

  name                 => ‘chongchong’,

  config_scope         => ‘local’,

  set_credential_cache => ‘on’

);

通过设置config_scope，我们定义任务为对本地git存储库进行设置，并通过设置set_credential_cache为“on”，我们要求git缓存密码。

可以在SparrowHub的sparrow插件存储库中找到可在Tomtit方案中使用的插件列表。

在下面的场景示例中，我们创建任务以通过vsts-build插件远程运行VSTS构建：

.tom/build-vsts.pl6:

task_run “run my build”, “vsts-build”, %(

    definition => “BackEndBuild”

)

你可以在Tomtit方案中使用许多其他插件作为任务。 关于更多的插件，请查看SparrowHub存储库SparrowHub。

总结

Tomtit为我们提供了大量可用于日常任务的小脚本或插件，尤其是在处理开发类的源代码管理和自动化构建的任务。Tomtit任务场景配置脚本使用的是普通Perl6脚本，用于生成执行任务的动态列表。任务脚本支持语法糖，你可以使用预定义的内置函数集，而不是引用插件，使代码更简洁，更容易阅读。

如果由于某些原因你找不到解决你特定任务的插件，你可以随时创建自己的插件。

目前 Perl 6 版本发布周期是季度性发布。
需要提及的是，本次发布的 Rakudo Star 版本不能完全向后兼容 JVM 所有功能，只能完全向后兼容 MoarVM。
本地发行包 —— 包括 2018.01 版本的 Rakudo Perl 6 编译器，MoarVM 虚拟机及核心模块、文档以及 Perl 6 社区收集的其他资源。
Rakudo 编译器的更新列表，详见安装包 rakudo/docs/announce 目录下的 2017.10、2017.11.md、2017.12.md、2018.01.md 文档里。

额外科普：
Perl 6 仅仅指语言，Rakudo Star 是官方的 Perl 发行版本，包括编译器、虚拟机和核心功能模块。当然 Perl 6 还有其他官方和第三方的 Perl 6 发行版版本，比如大家都熟悉的春哥的 fanlang 语言就是运行在 Openresty 上的Perl 6 “方言“。
MoarVM 是官方的 Perl 6 虚拟机，Perl 的虚拟机还支持 Java 虚拟机的 JVM，用于在 JVM 上跑 Perl 6。
Perl 6 文档中文化 —— 笔者在 github 上创建了一个官方文档 Perl 6 doc 中文化项目，欢迎有志的同学一起加入，完善和推广。

码云的托管地址为：https://gitee.com/ijz/perl6doc

perl -ne 'print if 5..10' xxoo #感谢flw提醒，忘记这个了
perl -ne 'print if $.>=5 and $.<=10' xxoo
perl -ne 'print if int($.) ~~ (5..10)'
perl -ne 'print if grep { $_ == $. } 5..10'xxoo
sed -ne '5,10 p' xxoo
awk 'NR==5,NR==10' xxoo
head -10 xxoo |tail -6
tail -n +5 xxoo | head -n 6
grep . -n xxoo |grep -E "^(5|6|7|8|9|10):"|perl -lpe 's/\d+://'

17年磨一剑，在perl人艰苦卓绝的努力下，perl 6终于在2015年圣诞节推出了正式版本V6.c版本（c代表圣诞节）。 期间几度波折，发生了很多很的事情。最令人津津乐道的一条是Perl6 最先成型的pogs版本主程台湾大牛唐宗汉易性为唐凤，另IT界叹为观止，广泛流传。

20年积累了宇宙巨能的perl6究竟有啥黑科技？本文借自perl6官方的faq，翻译成中文，以帮助我们揭开perl6的潘多拉宝盒。

笔者计划一项目perl6doc中文化的项目，这篇文章为perl6doc中文化的第一个成果，如果有什么纰漏和错误，请帮助我指出 。另外有志于学习perl6和参与项目的同仁也大大的欢迎哦。

项目的地址为：http://git.oschina.net/ijz/perl6doc

最新更新是Perl6.d版本将会在2018年推出，让我们期待把！

FAQ perl6最常问到的问题

一般性问题

Rakudo和Perl 6 有啥区别?

正确的说法是， Rakudo 是perl6的的实现。它是目前最完全的实现版本，目前还存在其他几个实现，将来也许 会有更多的实现。Perl 6是语言的定义。目前来讲，Perl 6和Rakudo名称可以通用。

第一个perl版本是6.0.0?

NO，perl 6 第一个正式发布版是v6.c（c代笔Christmas圣诞节）。 接下来发布的版本是带点版本（比如，v6.3.2）,或者大版本的话（v6.d）

运行perl6 -v会输出编译器版本号：

$ perl6 –v

输出”This is Rakudo version 2017.07 built on MoarVM version 2017.07 implementing Perl 6.c“。

Perl v6.d 大概什么时候发布?

2018年内某时间点。这是实现6.d特性的第一个版本，具体日期后面会发布。 实际上通过使用use v6.d.PREVIEW我们已经在6.c的编译支持了很多6.d的新特性 pragma。

perl6开始之旅,我应该安装什么?

Mac用可安装Rakudo Star DMG包，下载地址： http://rakudo.org/downloads/star

Windows用户可以通过Rakudo Star MSI安装. 你必须事先安装Windows Git和Strawberry Perl5 然后用zef包管理软件安装perl6模块。

Linux用户直接下载Rakudo Star http://www.perl6.org/downloads/ ，然后编译安装.

Linux和Mac用户也可以通过操作系统发行方或者第三方的二进制包安装,发行方包可能版本会老一点.

我们也提供Rakudo Star docker容器的镜像，地址为 https://hub.docker.com/_/rakudo-star/

对于perl老司机我对 Rakudo的开发感兴趣，有啥好的建议？

X<|rakudobrew (FAQ)>

最简便的方法是clone仓库the repository并且对其编译 从源码编译文档。

部分人也可以选择rakudobrew这允许我们安装多版本 rakudo，从中选择自己喜欢的版本。请先浏览文档 rakudobrew 这个工具相当于perl5的perlbrew或者python，ruby的相应的多版本管理工具。

上哪里找Perl6的文档?

请浏览官方文档站(特别是他的“Language”部分。 还有资源页)。 你可以通过在线perl6频道寻求帮助 或者通过谷歌搜索聊天记录。

Perl6 specification是什么?

Perl6 specification是指perl6 官方的测试套件.我们称它为roast，其地址为 hosted on github. 任何编译测试通过的就会加入到Perl 6 specification。

Roast的主分支对应最新的开发版本，它仍未划入任何的specification。其他分支则对应于不同的specific版本。 例如，”6c.errata”。

有Perl6相关主题的字汇表么?

是的, 其链接为glossary.

作为一个perl程序员，我想知道Perl5和Perl6的不同点是啥?

本文档的Language部分，有几个5to6-的指导教程。 其中最主要的是5to6-nutshell guide。

我是一位Ruby程序，我该怎么快速入门perl6?

请浏览’rb-nutshell’文档，链接为https://docs.perl6.org/language/rb-nutshell

模块

Perl6有没有CPAN?

有，和Per5的CPAN一样,CPAN已经完全支持Perl6。唯一的区别是用PAUSE 升级模块时候，你必须选择Perl 6为目标目录。App::Mi6工具 模块可用于，简化这个更新流程。最新版本的zef模块安装 自动的检查CPAN上最新版本的模块，以及GitHub-based ecosystem。

我能在Perl6中使用perl模块么?

没问题，通过 Inline::Perl5可以很好的运行大多数的perl5模块，甚至 包括Catalyst和DBI.

我能在Perl6中执行c和c++么?

Nativecall使这工作变的非常简单.

Nativecall不能找到libfoo.so，我的系统中只有libfoo.so.1.2!

这是Debian系linux运行Nativecall常见的问题.你需要安装C包，并对缺失的问题设置符号链接。

那些传统的UNIX库函数如何调用?

利用Nativecall调用它们非常简单。同时还有一个生态系统模块POSIX也可用.

Rakudo有核心的标准库么?

Rakudo Star发行包携带很多有用的了 模块。 Rakudo编译器发布仅仅包括一些最常用的基本模块。 更多的模块在ecosystem。

有没有类似B::Deparse的模块？我如何处理AST?

使用--target=optimize命令行选项来预览程序中的AST。例如： perl6 --target=optimize -e 'say "hi"'。 静态优化后，optimize赋给AST处理目标，同时目标 ast给予AST前面的步骤。 可通过运行perl6 --stagestats -e ""得到所有可用目标的列表。

语言特性

我怎么样能dump出Perl6的数据结构 (和perl5的Data::Dumper一样有类似的模块么?）

典型地是使用say例程，对”gist” 对象的dump使用gist方法。更多细节可以通过 perl方法，这通常会返回 EVAL样式的代码表示。

如果使用是rakudo implementation，你可以使用其特有的 non-standard dd routine例程来dump 他的输出与perl类似，包含更多多的信息。例如:

my $foo = { foo =&gt; ‘bar’ };

say $foo.perl;# 输出: «${:foo(“bar”)}␤»

say $foo;# 输出: «{foo =&gt; bar}␤»

# 在rakudo实现中，支持非标准的例程

dd $foo;# 输出: «Hash $foo = ${:foo(“bar”)}␤»

同时perl6生态系统也有几个专门的模块提供更完善 的数据结构dump，包括支持带彩色的输出等。

Perl6命令行(REPL)下我如何得到输入命令的历史?

请安装Linenoise 模块.

对Unix系的操作系统另外还有一个方法就是使用rlwrap。在debian系操作系统可以通过 运行以下命令安装。

for code :lang&lt;shell&gt;

sudo apt–get install rlwrap

为什么Rakudo编译这样报错?

如果 当前输出是编译时错误，否则是运行时错误。

例如:

=begin code :skip–testsay 1/0;# 试图对0整除sub foo( Int $a, Int $b ) {…}foo(1)# ===抱歉!=== 编译时报错 …=end code

(Any) 是啥?

Any是最高层的基类，其它绝大多数类都继承它。Any类型对象最为变量和参数 未明确指类型时候的默认值 这意味着当你答应一个没有任何值gist变量时候会输出(Any)。比如使用say routine:

为了测试一个变量是否具有定义的值，使用L和L例程。其他几个测试定义与否结构有： with, orwith,以及without语句， [<//>(/routine/$SOLIDUS$SOLIDUS)，andthen, notandthen,以及orelse操作符。还有 type constraint smileys。

so是什么?

so是一个弱优先级操作符，强制为Bool。 它和? 前缀操作符具有相同语义，类似于and和低优先级的&&。

实例:

本例中的，比较的结果(是一个 Junction),被转化为布尔型打印。

:D 和 :U 修饰的意义?

在perl6中，类和其他类型都是对象，并且只能通过其自己类型的类型检查。

例如,如果你定义一个变量

然后你不仅可以给他赋值整数（那就是，类实例Int），还有Int 类型对象自己。

如果你要排除类型对象，你可以附加:D 类型笑脸，他带包已”定义”.

类似的，C<:U> 限制为未定义的值，也就是说，类型对象。如果你限制既不能为类型对象 也不能为实例，你可以用C<:_>.

修饰符 --> 有啥作用?

L«–>|/type/Signature#Constraining_Return_Types» 为限制返回为一个类型或者一个定义的值.

例子，限制为一个类型:

例子，限制为一个定义的返回值:

在本例中，由于返回值已经定义，所以最终值被抛弃。

我怎么从Junction抽取一个值?

如果你想从Junction中，抽取值，你可能做错了，你需要的应该是 Set。

Junctions表示匹配的意思，不用来做操作的。如果你费用坚持这样做，你可以滥用自动线程：

如果Str为不可改变, s/// 如何工作? $i++ 如何工作?

perl6中，许多基本类型的值都是不可改变的，但是存放他们的变量却不是，C<s///> 操作符是对 变量的操作，操作是会生成一个新的字符串对象。同样，C<$i++>也是工作C<$i>变量上，并不是对 值本身的操作。

知道这点后，我们一般就不会试图去修改一个字符串（比如'hello' ~~ s/h/H/） 但是可能不经意间使用 map做了这样事情:

实际上，要做的不是修改原始值，而是返回一个新的值得操作

更多信息，可以浏览 containers。

数组引用和自动解引用是怎么回事?需要@前缀么？

在perl6中，一切皆引用，所以专门谈论引用意义不大。不像perl5，标量变量也能直接包含数组：

最大的不同是插入标量中的数组当为列表上下文的一个值，而数组则会循环迭代。

你可以用@( ... ) 或者 用表达式的.list方法，强制展开，或者为成员上下文（不能展开）

为什么要用sigil? 不能没有他们么?

有几个原因:

• 便于解释变量为字符串
• 给不同种类的变量和twigils隔离为微命名空间，避免命名冲突
• 可以便捷地区分单复数
• 就像自然语言中的强制性动名词标记，是大脑最直白处理的方式
• 但他也不是强制的，你也可以自定义sigil（如果你介意引起歧义的话）

Str类型不支持关联索引?

你可能是想混用字符解释器和HTML

perl6认为$foo为一个哈希，而C«<html-tag>»会被当成字符哈希键。我们用一个 大括号来加深理解：

perl6中有协程么? yield呢?

perl6没有像python一样的yield语句，但是它通过懒列表提供类似地函数式功能。 有两种普遍的方法写协程，返回懒列表

为什么我不能从new方法初始一个私有属性，我该怎么操作?

诸如下面代码：

输出不为5。私有属性是_private_，这意味着对外不可见。如果默认构造函数可以初始化他们的话， 他们就可能暴露在公共API.

如果你坚持要这样做，可以增加一个submethod BUILD来初始化他们：

BUILD会被默认的构造函数调用（间接地，查看 Object Construction了解更多），构造函数调用 所有用户传递过来的命名的参数。:$!x 是命名为x的命名参数，当带 x命名参数被调用 时，他的值会被绑定到属性 $!x。

如果不这样做。如果名称是公有的，这样定义$.x也是没有害处。因为默认外部视图是只读的， 你仍然只能通过内部地 $!x操作它。

say, put 和 print 有啥区别?

最明显地差异是 say和 put输出会自带换行符，但是print没有。

其他的不同时：print和put通过调用Str方法把所有参数项会当成一个字符串，say则 是用 gist方法。前者适合机器，后者更人性化。

或者完全的不同，$obj.Str 给出一个字符表达，$obj.gist给出一个简单对象总结，适合开发人员 辨别。 $obj.perl会给出一个perl式的表达。

例如：类型对象，也叫做“未定义值”，字符化结果为一个空串，并且给予警告。而gist方法会返回 类型的名称，紧跟着一个空括弧（表示除了类型外没有任何值）。

my Date $x;# $x包含一个Date类型对象
print $x;# 输出为空和警告
say $x;# 输出: «(Date)␤»

所以，say更适合做调试；显示是人优化过的； print和put更适合给其他应用输出结果。

put是介于print和say之间的调和。和print一样适合为其他程序输出结果，同时也像 say一样输出结果自带换行。 and like say, it adds a newline at the end of the output.

token和rule有何不同 ?

<regex>,token和rule 都用于引入正则表达式，但是语法上略有不同。

token意味着:ratchet或者:r修饰符，这会防止规则被回溯。

rule 表示:ratchet和:sigspace（简写为:s）修饰符，意味着规则不可以回溯，并且将 正则表达式中空白符号作为 C«<.ws>» 调用(不捕获)（例如，可以用来匹配空格，除了两单词之间的空格）。 正则表达式开头和每个可选分支|的开头空白会被忽略。

regex 定义一个没有任何暗示修饰符的纯正则.

die和fail有啥不同?

die抛出一个异常.

fail 返回一个Failure对象.（如果在词法范围内调用定义过 use fatal;），fail抛出一个异常 而不是返回)。

Failure是一个非抛出或者“懒”异常。它一个包含了异常的对象，如果你想用 Failure作为普通对象 抛出一个异常。或者在sink上下文中忽略它。

Failure在defined检查中返回False，你可以用 exception方法抽取异常。

为什么wantarray和want 不见了? 我怎么才能不同上下文中返回不同的类型?

perl5用wantarray函数来测试调用的对象是void， scalar或者列表。perl6没有这样的结构，因为在perl6中上下文不再是关键；例如， 一个例程不需要知道哪个上下文被调用了，因为上下文是惰性的（只有在最后结果被使用时候才会知道）。

例如，perl6有多调度器，所以，下面的代码：

=begin code :skip–test
multi w(Int $x) { say ‘Int’ }
multi w(Str $x) { say ‘Str’ }
w(f());
=end code

没有办法知道调用的 sub f需要一个字符串或者整数，由于它自己现在也不知道会调用啥 一般来讲，这需要解决halting问题，对perl编译器作者也是个头疼的问题。

实现perl6上下文敏感的一个方法是返回一个对象。它知道如何响应上下文中典型的方法调用。 在perl6中，相比较它听起来，这实际上是一个lot easier， 和其他语言的其他特性，既可以减轻首先需要的并且最大可能是覆盖到wantarray的用例。

例如，regex匹配返回匹配对象，知道如何影响列表索引，哈希索引。并且可以变成匹配字符串

Pointer和OpaquePointer有什么不同?

OpaquePointer已经过时，被Pointer取代了.

Perl6实现

那种perl6实现可用的?

目前，开发最完善是Rakudo（支持多虚拟机后端）。曾经的实现包括Niecza (.NET）和 Pugs (Haskell)。 其他客用的实现请浏览Perl 6 Compilers

Rakudo使用什么语言开发的?

我们可以最直接告诉你Rakudo基本上都是用perl6开发的。说的细一点的话，Rakudo使用perl和 NQP (“Not Quite Perl”)混合开发的。NQP是一个轻量地类perl6虚拟机环境。它设计用perl6语法来实现高级别 虚拟机（比如MoarVM and JVM）编译器和类库。

NQP使用什么语言开发的?

NQP是以下各部分构成 (1) NQP代码, (2) 底层虚拟机使用的各种语言 (3) 一些第三方的 C和库, 以及(4)一些早期编译进程的运行时启动文件

perl6是Lisp嘛?

不是说是，也不能说完全不是 (not (not Nil))

Meta问题和文化

为什么Perl6名字要带Perl?

关于这个问题教主Larry这样回答的： Rule 1

… As opposed to some other name that did not imply all the things that the higher number might indicate on other languages.

… 相比较换个不能说明任何事情的名字，一个高的版本号也可能暗示是一个完全不同语言。

perl社区认为Perl5和Perl6是姊妹语言，他们有很多共同点，解决了许多相同的问题， 但是Perl6并不为了取代Perl 5。事实上，两种语言互相影。

Perl6怎么样了? 现在可以了么?

尽管编程语言和他们的编译不是一个是与非得二元问题。因为还牵扯到语言本身和实现的 问题，他们会变越来越好用。根据个人需求的不同，perl6及编译器可能是可用或者不可用。 （截止目前，目前99.9的功能都实现了，只是还稍微有点慢 __译者）。

6.c版本（2015圣诞节）是Perl 6首次正式发布版本,发布包括一个验证套件和的编译器。

我为什么要学习Perl6? 他有啥重大改进和特性?

perl6实现了通常其他程序中没有的许多伟大的想法。虽然有几种语言提供了这些特性中的部分， 但没有一种语言能支持所有这些：

• Perl6提供了过程式，面向对象和函数式编程方法.
• 简单一致的语法, 数据结构使用类型前缀标志严格区别.
• 全字符Unicode支持，包括 Annex #29.
• 清晰，更可读的正则表达式;更多的功能，更深层次的可用性.命名正则表达式提高可用性.
• Junctions允许多种可能的测试; 例如, $a == 1|3|42 ( 表示 $a 等于1，3 或者 42).
• 动态变量提供一个可选的词法作用域，对应于全局变量.
• 立足于通过组合性和词法范围来阻止“超距行为“; 例如, imports一直为法范围.
• 易于理解地一致作用域规则和闭包.
• 强大的面向对象，支持类和角色（一切皆对象）。继承，子类型，代码重用.
• 对象和元对象的内省机制 (金字塔一样一层层堆起来).
• 元对象协议允许元组编程，而无需代码生成和解析.
• 子例程和方法签名，方便地位置和命名参数解包。
• 基于数量，类型和可选附加代码的不同签名对特定子例程（方法）实现多路指配.
• 对未知子例程和不可能调度的编译时错误报告。
• 可选地、无额外运行时损耗的渐进类型检测。还支持可选类型注解。
• 基于编译/运行状态內省的高级错误报告，实现更有用，更精确地错误信息。
• 代码快(比如BEGIN/END)允许代码在范围入口和结尾运行, 循环的first/last/next以及其他很多更特殊的语法。
• 高级并发模型,实现隐式、显式多进程处理，超越基本的线程和锁机制。 perl6的并发机制还提供了丰富地（可插拔）工具集。
• 多核越来越普遍，perl6的并发可以用隐式（例如，用>>.方法）和显式（start { code }）。摩尔定律都要失效了，支持多核才是硬道理。
• 结构化语言支持以实现代码的异步执行。
• Supplies允许事件驱动的代码执行 (比如定时器,信号,或者文件系统事件).
• 利用react/whenever/supply关键字方便构建交互，开发事件驱动的应用.
• 尽可能惰性求值,需要时时候才即时出值。例如，懒列表，甚至无限懒列表，比如斐波纳契序列或所有素数。
• 原生数据类型，更快，更底层地处理。
• 非常简单基于NativeCall的对外C/C++的接口。
• Inline::Perl5和Inline::Python接口非常便捷链接Perl5(CPAN)/Python模块。
• 可同时安装和加载模块的多个版本。
• 便捷的跟新/升级策略，简化系统管理。
• 利用Rats（有理数）简单实现精度无损的数值计算（比如1/3，而不是用浮点数来近似估算）。
• 实现数据和代码解析的可扩展语法(Perl6就是用他解析自己)。
• Perl6是一个支持多变的语言 (定义自己的函数,操作符,特征和数据类型, 修改自定义的解析器)。
• 大量可选的数据类型，加上可自定义的类型。
• 多维度构型或者原生数组，合适的边界检查。
• 当特定条件发生时，可在语法解析期间任何随时执行代码。
• 自定义一个操作符或者增加一个trait特征就像定义子例程一样简单。
• 给任何操作数自动生成超操作符(系统的或者自定义的操作皆可)。
• 运行在多种后端虚拟机。目前有MoarVM和JVM, 正在开发中的JavaScript,还可能更多的。
• JIT热代码路径运行时优化。
• 小系统(例如,树莓派)和大型处理器上的运行。
• 垃圾回收机制: 不及时的销毁，所以没有必要的引用计数，使用phasers的时间行为。
• 属性可以在运行时混合到任何实例化对象。例如, 允许添加范围外数据。
• 具有多路劲分配和自动使用消息生成的MAIN子例程，实现快捷的命令行访问接口。
• 用更少的代码实现更紧凑的程序。命名的霍夫曼编码实现更好的可读性。
• 用简单的递归接口定义懒列表，任何类通过提供单个方法提供最小化支持。
• perl6秉承了perl一贯原则: “Perl是不同的。简而言之，Perl旨在”使容易的工作变得容易，使困难的工作变得可能”。和”条条大道通罗马”。 现在会有更多-Ofun添加进来。请浏览 特性对比矩阵 查看更多实现细节.

Perl6够快么?

那要取决于你要拿它做什么。Rakudo开发的秉承“工作的更合适，而不更快”的宗旨。一些部分 已经足够快，还有一些还需要改善。

相比较其他动态语言perl6提供了很多JIT特性，还有很大性能提升空间。在一些问题上已经比perl5快了。

perl5程序员应该了解perl了内置了更多的函数，简单的基准性能测试并不能说明什么问题，除非你perl5 测试用例包括了诸如Moose，类型检测模块等复杂的项目。

下面提供了写粗略的基准脚本，表明如果使用了复杂的模块的任务上Perl6比Perl5要快，与此同时，如果 不涉及这些重模块Perl5则会更快。

在你的系统运行下面脚本，结果可能会让你大吃一惊。

例子:

=begin code :skip–test

# Perl6 版本

use v6.c;

class Foo { has $.i is rw };

for 1..1_000_000 –&gt; $i {

my $obj = Foo.new;

$obj.i = $i;

}

# Perl5 版本

package Foo;

use Moose;

has i =&gt; (is =&gt; ‘rw’);

__PACKAGE__–&gt;meta–&gt;make_immutable;

for my $i (1..1_000_000) {

my $obj = Foo–&gt;new;

$obj–&gt;i($i);

}

1;

# 另一个Perl5版本，相比较Moose/Perl6版本，提供少量仅仅需要特性，更简单程序。

package Foo;

use Mojo::Base –base;

has ‘i’;

for my $i (1..1_000_000) {

my $obj = Foo–&gt;new;

$obj–&gt;i($i);

}

1;

#  一个脚本运行在perl5 （with perl -Mbigint)和perl6下

my ($prev, $current) = (1, 0);

for (0..100_000) {

($prev, $current) = ($current, $prev + $current);

}

print $current;

=end code

</code><code>

这儿介绍第三种方法（如果网站固定文件不变的情况下）
网站部署好后，通过对站点所有文件的计算MD5值，并保存在一个文件中。然后以后可以手动或者crontab，监控程序等定期对保存文件中的文件生成md5值和已有的md5值对比，如果发现值对不上，则说明文件被篡改了。

程序perl：

#!/usr/bin/perl

use strict;
use warnings;
use Digest::MD5 qw(md5_hex);


my $dir=shift;
# 此处默认为检查md5值。
md5check($dir);
# 如果需要开始生成web目录的md5值，注释掉上面一句，把下面一句启用
#md5init($dir);
sub md5_sum {

 my ($file_name,$mode)=@_;
 my ($FD,$ctx, $md5);
   open ($FD,$file_name) or die "Can't open /'$file_name/': $!";
     $ctx = Digest::MD5->new;
       binmode($FD) if $mode;
     $ctx->addfile($FD) || die "$!n";
    $md5 = $ctx->hexdigest;
   close $FD;
 return $md5;
}

sub md5check {
my $file=shift;
open(my $fd, '<',$file) or die "$file: $!n";
print $file;
while (<$fd>){
        my ($name, $sum) = split /s+/;
        if ($sum eq md5_sum($name,1)){
                print "$name OKn";
        }
        else{
          print "$name FAILEDn";
        }
}

close $fd;

}
# 遍历目录计算md5值
sub md5init {

    my $fd=shift;
    my $md5value;
    if ( -f $fd ){
            if ( -T $fd ) {
                #print "按照文本模式进行计算MD5!n";
                $md5value =md5_sum($fd,0);
                print "$fdt$md5valuen";
            }elsif( -B $fd ){
                #print "二进制文件用binmod计算MD5!n";
                $md5value =md5_sum($fd,1);
                print "$fdt$md5valuen";
            }else{
                #print "其他文件，按照bimmod计算!n";
                $md5value = md5_sum($fd,1);
                print "$fdt$md5valuen";
            }
     }
     elsif( -d $fd ){
        my $file_md5;
      # print "开始验证目录下所有文件:n";
       opendir (my $DH,$fd) or die "Can't open dir $fd: $!";
         for(readdir $DH ){
         my $file=$fd.'/'.$_;
      # 上级目录..，本目录. 以及连接文件跳过
         next if ($file =~ m{/.$} || $file =~ m{/..$} || -l $file );
         md5chek($file);
        }
       closedir $DH;
    }

}

以上程序保存成文件，比如filemd5check.pl

一、生成web的md5文件是时候：

注释掉

#md5check($dir);

md5init($dir);

然后执行  web目录  > webmd5-20160920

web目录换成自己实际的web目录 webmd5-20160920 为保存计算结果的文件，可以自定义

二、检查时候，用默认文件

perl filemd5check.pl  webmd5-20160920

最近又有人挖坑zabbix的sql注入漏洞，此漏洞不在详细说了。此漏洞的利用有个条件必须要登录才行。zabbix如果不做安全配置的话，默认是guest用户空密码可以登录的。

为此写一个脚本检测是否禁用了guest用户，用来批量检查，加固。

use strict;
use warnings;
use LWP;
use Encode;
use Data::Dumper;


my $lwp = LWP::UserAgent->new;

my @url=qw(

http://192.168.1/zabbix
http://zabbix.ooxx.com
http://sb.zabbix.rc/zabbix
#... 添加和修改更多的地址


);
for (@url) {
  my $login_url = $_."/dashboard.php";
  print $login_url,":n";
  my $respos= $lwp->get($login_url);
  if ($respos->is_success) {
   my $res=$respos->content;
   print "please disable guest accesss!","n" if $res=~/menu_graphs/ms;
   print "good","n"   if $res=~/(<!-- Login Form -->)|(You are not logged in)/ms;
   }
  else {
        print "Login Error: ",$respos->status_line,"n";
   }

 }

上面是是多个地址批量检验的，同时没有兼顾新版本的zabbix，新版可能会报 404错误，下面在发一个检测单url的，同时兼顾新版本zabbix的

use strict;
use warnings;
use LWP;
use Encode;
use Data::Dumper;

my $url=shift @ARGV;
my $lwp = LWP::UserAgent->new;

my $login_url1 = $url."/zabbix.php?action=dashboard.view";
my $login_url = $url."/dashboard.php";

my $ok=check($login_url);
   $ok=check($login_url1) unless $ok;
 print "Login Error: ","n" unless $ok;

sub check {

    my $url=shift;
     print $url,":n";
    my $respos= $lwp->get($url);
    if ($respos->is_success) {
       my $res=$respos->content;
       print "please disable guest accesss!","n" if $res=~/menu_graphs|initPMaster/ms;
       print "good","n"   if $res=~/(<!-- Login Form -->)|(You are not logged in)/ms;
       return 1;
       }
     else {return 0};

}

使用方法：以上脚本保存为ztest1.pl

然后执行 perl ztest1.pl http://zabbix.org/zabbix

map { code_that_does_something_with( $_ ) } 
grep { code_that_selects_from( $_ ) }
sort { code_that_compares( $a, $b ) } @array

这里我举一个实例来说说明这个变化，有如下的的json数据：

cat dd
  [{
    "createdTime": 11,
    "versionId": "13a76a74-adc5-4c66-914a-07bb16a486ef"
  },
  {
    "createdTime": 55,
    "versionId": "99b26fce-2df8-4364-b13f-3fb89144d64b"
  },
  {
    "createdTime": 33,
    "versionId": "4e9ca6a1-1b1d-4586-9ff5-9411330c722d"
  },
  {
    "createdTime": 44,
    "versionId": "36859a25-afc4-42c7-bac4-685dc3761c41"
  }]

要求根据createdTime的值，取最大createdTime值的versionId，我们利用施瓦茨变换的perl单行实现排序，然后取第一行

perl -MJSON -000  -e  '
map{ print $_->[2],"n" }
sort{ $b->[1] <=> $a->[1] }
map{ [$_,$_->{"createdTime"},$_->{"versionId"}]} @{decode_json(<>)}' dd|head 1

相对比用perl脚本实现，取两个值，以createdTime为键，构造一个哈希，然后对哈希进行排序。

#!/bin/env perl
use JSON;

local $/;
open my $FD,'<','dd' or die;
my $code = <$FD>;
close $FD;
my $obj =  decode_json($code);
my %hash;
for(@{$obj}) {
  $hash{$_->{'createdTime'}}=$_->{'versionId'};

}

for (sort keys %hash) {
  print $hash{$_},"n";

}

号称可以在一小时扫遍整个互联网，真是名副其实的快扫网。

确保安装了zmap 。centos可以 yum install zmap。

以下为对zmap包装的脚本，保存为scalzmap.pl 。

my $port=shift @ARGV;
my $file=shift @ARGV;
open $IP,'<',$file or die;
my @ip=<$IP>;
close $IP;
print  "Start scan.n";
my %result;
my $out=$port.".txt";
open my $OUT,'>',$out or  die $!;
for (@ip)
{
  next if /(#|$)/;
  #print $OUT $_ ;
  my $result=`zmap -p $port  $_`;
  print $OUT  $result;
  print "scan $_ ok!n";
}
close $OUT;
print "All done.n";

经过我们打包一层后，使用方法 perl zmap.pl 端口 ip.list

端口为一个端口比如 22 ，3306，6379 等 ip.list为要扫描的目标ip地址或者段

格式：
10.2.134.1/24
10.2.123.1/28
等

 
扫描结果，扫描的结果为端口.txt的ip列表，这个列表的ip表示该端口是通的，这个列表可以用于
之前我们用perl和nmap的扫描器的扫描目的。继续挖掘更多的信息。。。。更多就不说了

创建一个ip列表文件（一个ip一行）all.ip

执行 ./scalport.pl all.ip 开始扫描

结果保存为all.csv

#!/usr/bin/env perl
use warnings;
use strict;
my $filename=shift @ARGV;
open my $IN,'<',$filename or  die $!;
my @ip=<$IN>;

my $out;
   $out=(split /./,$filename)[-1] unless defined $out and $out eq "";
   $out=(split /./,$filename)[-2];
   $out.=".csv";
my $port=q(80,8080,3306,9200,6379,11211,21,22);
my @resul;
my $host;
print  "Start scan.n";
my %result;
open my $OUT,'>',$out or  die $!;
for (@ip)
{
  chomp;
  next if /(#|$)/;
  $host=$_;
  my $result=`nmap -T3 -sV   -p $port  $_ `;
  @resul= split /n/ms,$result;
  for(@resul) {
  chomp;
  next if /^$/;
  next if /Starting Nmap/;
  next if /Nmap scan report/;
  next if /PORT/;
  next if /filtered/;
  next if /Host is up/;
  next if /Service detection performed/;
  next if /Nmap done:/;
  next if /service unrecognized/;
  next if /SF/;
  next if /Service Info/;
  my $info="$host $_";
  $info =~s/s+/,/g;
  $info =~s//tcp//g;
  print $OUT $info."n";
  }
    print "scan $_ ok!n";
}

close $OUT;

扫描过程比较长，尤其是当ip较多时候，建议用 screen 执行

扫描结果搜索
显示为open 并且 显示服务名称（比如Tomcat 或者 Mysql） 或者nginx 并有版本显示的需要处理:

x.x.x.x,51366,open,ssh,OpenSSH,5.3,(protocol,2.0)
需要封禁sshd端口
x.x.x.x,3306,open,mysql MySQL 5.6.19
Mysql需要封禁端口
x.x.x.x,8080,open,http,Apache,Tomcat/Coyote,JSP,engine,1.1
Tomcat需要屏蔽版本信息
x.x.x.x,80,open,http,nginx 1.9.4
nginx 有版本信息的需要处理