Perl6 vs Perl5 之我见

Perl6 诞生

2000 年 7 月 19 号，在一场无聊沉闷的政治组织会议中，Jon Orwant 站在一边听了几分钟，然后很淡定的走向咖啡桌，拿起一个个杯子往对面的墙上扔去，边扔边说“我们得想办法激励社群，不然都完了，大家越来越无聊，都去做别的事了。我不管您们怎么做，可您们得搞些大事出来。”，然后他掉头就走，这场事件，触发了 Perl6 诞生的火苗。经过十年的磨砺，2010 年 7 月 29 号，Perl6 的第一个实现版 Rakudo Star 终于发布了，这头曾经背负重担的骆驼轻装上路了。

Perl5 是用 C 写的核心，虽然已经很成熟，但核心代码太庞大，充满了各种难以理解的调用，且对多线程、unicode 的支持并不好， Perl6 相对 Perl5 做出了革命性的变革，除了更完美的支持线程、unicode 之外，可靠信号控制在一开始设计的时候就已经被加进去，新的内核更小、速度更快、外部扩展 API 更加清晰，在过去的二进制兼容问题也会被彻底解决掉。

START

安装 Perl6,可以从以下网址下载 http://rakudo.org/how-to-get-rakudo/， 安装步骤如下：

安装 Perl6

$ cd rakudo
$ perl Configure.pl --gen-parrot --gen-nqp
$ make
$ make install

参数–gen-parrot 实际上是在调用 svn 或 git 生成合适的 Parrot 才能编译它，Parrot 是 Perl6 相关计划书中支援 Perl6 的 Virtual Machine，也就是说， Perl 程序将在 Parrot 上执行，程序所面对的是个共通的跨平台 Virtual Machine 环境，而不用考虑您所面对的 OS 环境，就像 Java、.NET 所使用的 VM 一样。参数-gen-nqp 会下载一份 NQP，NQP 是一个小型的 Perl6 编译器，用来构建 Rakudo，Rakudo 是用于 Parrot 虚拟机上的编译器。

安装完之后，进入安装目录，并运行./Perl6，当您在 $ 后面见到 > 时，您就进入了 Rakudo 的环境中，可以执行一些东西见到 Rakudo 的响应，如：

运行 Perl6

$./perl6
>say “Hello world!”;
>Hello world!

而在 Perl5 中，运行./perl 后直接停留在当前状态，不会进入用户交互状态。

变量和类型

数组

Perl6 对数组和哈希的定义无需括号，如:

Perl6 中数组定义

@a = "hello", "world";
say @a;

输出：

helloworld

这里，say 函数是 Perl6 中新引入的一个函数，功能就是将一行文本打印到终端。

Hash

在 Perl6 中对哈希值的访问，键值如果用双引号则需用{}, 如果不用双引号，则需用<>, 如：

Perl6 中 Hash 定义

my %a = "first" => 1, "second" => 2, "third" => 3;
say  %a{“first”};
say  %a<second>

输出：

1
2

如果不使用=>符号定义 hash，还可以使用副词语法，如下：

副词语法

my %bar = :first(1), :second(2), :third(3);

副词语法提供了为数值命名，在 Perl6 中不仅仅用在 hash，很多地方都会用。

类型

在 Perl 5 中，$scalar 的标量只能包含二种东西引用或值，这值可以是任何东西，可以是整数、字符、数字、日期和您的名字，这通常是非常方便的，但并不明确。在 Perl6 中给您机会修改标量的类型 。如果您这个值比较特别，您可以直接放个类型名在 my 和 $variable 的中间。像下面的例子，是在设置值一定要是一个 Int 型的数据，来节约 cpu 判断类型的时间，和让您更少在程序上出错。

my Int $days = 24;

Perl6 提供了很多内置数据类型，最基础的有：

• Bool : 布尔值，是枚举类型，只能是 true 或者 false。
• Int: 整数型。
• Array: 数组类型，通过整数索引。
• Hash: 哈希类型，通过字符串名索引。
• Num: 浮点数值。
• Complex: 复杂数据类型，如虚数。
• Pair: 将字符串名和数据对象的绑定。
• Str: 字符串数据对象。

我们可以通过 WHAT 函数来判断数据的类型，如：

WHAT 函数

my $a=3;
say $a.WHAT

输出：

Int()

此外，我们还可以通过一些特殊操作符对数据类型进行转换，如：

数据类型转换

my $num = +(“3”);  //+()将字符转换为数值
my @arr = @(“key” => “value”);   //@()将 hash 转换为数组
my $sca = $(2..4) ;//$()将列表转换为标量，这里 sca 为列表元素个数 3
my $str = ~3; //~()将数值转换为字符
my %hash = %(“a”,”1”,”b”,”2”);//%()将列表转换为哈希

my Int $num = 5;
my Str $str = “I have “ ~ $foo ~ “ chapters to write”;
say $str; //这里~会将 5 转换为 string 再拼接

I have 5 chapters to write

“c” ~~ /c/;     # 返回 true, 字符”c” 匹配正则表达式/c/

if($x<5) {    //错误，会调用 if 函数
}
if ( $x <5) {  //正确
}

given $guess {
when 10 { say ‘$guess is the number 10’; }
when “hello” { say ‘$guess is the string “hello”’; }
when Bool { say ‘$guess is the _oolean quantity ‘ ~ $guess; }
}

for 1, 2, 3, 4 { .say }

loop (my $i = 1; $i<= 10; $i++) {
print $i;
}

My $n = 3;
repeat {
say $n;
} while $n <3;

sub mysub ( $x ) {
     My $y = $x/2;
      Return $y;
}

sub mysub($first, $second?,$third = 4);

multi sub double(Int $x) {
my $y = $x * 2;
say “Doubling an Integer $x: $y”;
return $x * 2;
}

multi sub double(Num $x) {
my $y = $x * 2;
say “Doubling a Number $x: $y”;
return $x * 2;
}

my $foo = double(5);        # Doubling an Integer 5: 10
my $bar = double(3.5);      # Doubling a Number 3.5: 7

my $x = 5;
{
   my $x = 6;
   say $x;           # 6
   say $OUTER::x    # 5
}

my $x = 5;
mySubroutine(7);

sub mySubroutine($x) {
   say $x;         # 7
   say $CALLER::x; # 5
}

class MyClass {
        has $!private;
        has @.public;

        # and with write accessor
        has $.stuff is rw;

        method bark {
            if self.can(‘bark’) {
                say “Something doggy”;
            }
        }
}

my $comer = family.new(name => 'Jack', age=>23);
say $fido.name;  # Jack

class MySubClass is MyClass {
        method bark {
                say “Something wow!”;
        }
}

转载请注明：爱开源 » Perl6 vs Perl5 之我见