perl6学习

Table of Contents

• 1 写在perl6之前
• 2 perl6的安装
• 3 学习perl6
  • 3.1 字符串
  • 3.2 数组
  • 3.3 hash
  • 3.4 Types 类型
  • 3.5 基本的控制结构

1 写在perl6之前

从95年到现在，很多年过去了，从perl6计划开始到现在，也有10年的时间了。 所有的事物都在不断的发展，或许perl6还要再开发10年，或者20年，但是未来 总是属于perl6的。与其等到40岁的时候再去学习一项新的东西，不如从现在开 始就积极拥抱perl6。

2 perl6的安装

perl6的官方网站：perl6.org。上面有perl6相关的东西。其中Compilers 是Rakudo，也就是perl6的编译器。我们从这里面可以得到具体的安装信息。我 所有的工作都是在Ubuntu下进行的。在rakudo.org里面我们可以下载。或者我 们可以用git来进行安装。在下载下来的rakudo中有一个install的文件，这里 包含了安装rakudo所需要的东西，和安装的信息，里面用Ubuntu作为例子，你 可以根据这个来进行安装。 安装完成以后，修改一下环境变量，vim .bashrc,然后添加perl6所在的目录 就可以了。

3 学习perl6

我看的第一份资料是是从perl6.org/documentation/ 里下载的Perl 5 to perl 6.还有doc.perl6.org里面的的东西。 首先perl6中不用use strict;和use warnings;了，用了反而会报错。

3.1 字符串

用法

1:  my $fve = 5;
2:  print "an interpolating string, just like in perl $five\n";
3:  say 'say() adds a newline to the output,just like in perl 5.10';
4:  say 'new line with out \n";
5:  #这里的一个新的特性就是，say自动添加换行符。不用你手动加入了

貌似双引号的功能也有所改变，但是怎么改变的还没有具体的看到。
字符串被双引号包括（变量内插）或者用单引号，反斜杠和perl5一样。 变量内插的规则有了一些变化，下面的情况将被变量内插

1:  my $scalar = 6;
2:  my @array =1,2,3;
3:  say "Perl $scalar";
4:  say "An @array[]";     #空索引，结果是整个数组，1，2，3
5:  say "@array[1]";
6:  say "Code:{$scalar*2}";#大括号中的部分会被看成代码，结果是内插的，结果是12

数组和hash只有在后面跟着索引的时候，或者跟着以（）结尾的方法的时候才会变量内插。 如”some $obj.method()"),空的索引内插整个hash或者数组。

3.2 数组

数组相关新方法

1:  @array.keys();       #取得数组的下标
2:  @array.values();     #取得数组的值
3:  @array.kv();         #下标和值一起取得
4:  @array.elems();      #元素的个数
5:  @array.exists(num）； #判断某个下标值是否存在，
6:  @array.max()；       #最大值
7:  @array.min()；       #最小值

1:  my @array = 1,2,3,'foo';        #括号不再需要
2:  my $sum = @array[0]+@array[1];  #单个数组元素也是以@开头
3:  my @array[1,3];                 #数组切片仍然可用
4:  my $num_of_element = @array.elems;
5:  #元素的个数，在perl6中通过这种方式，而不是各种奇怪的符号，
6:  my $num_of_element = +@array  #是求元素个数的另外一种方法。
7:  my $last_item = @array[*-1];  #数组的最后一个元素
8:  

1:  @array.pick(num);   #随机取出数组中的不重复元素
2:  #例子
3:  my @array = <a b c d e>;
4:  say @array.pick(4);
5:  say @array.pick(*);#*代表所有元素

所有的都是对象，你可以call mechods on arrays；

 1:    my @array = <5 7 3 6>;
 2:  ' #以前这样写@array = qw/5 7 3 6/；现在可以按照上面的方法写
 3:    my @b = @a.sort; #对@array使用方法“排序”
 4:    say @b;          #结果为3 5 6 7
 5:    say @b.elems;    #数组元素，结果为4
 6:    if @b > 2 {say “yes”}
 7:    say @b.end;      #最后一个元素的下标，结果为3
 8:    my @c = @b.map ({$_*2});
 9:    say @c；         #结果为6 10 12 14
10:    

3.3 hash

1:  my %drinks =
2:      France  => 'Wine',
3:      Bavaria => 'Beer',
4:      USA     => 'Coke';
5:  say "The people in France love ",%drinks{'France'};
6:  my @countries = %drinks.keys.sort;
7:  #%drinks{'France'};现在的用法
8:  #$drinks{France};  以前的用法
9:  #%drinks<France>;  现在也可以这样用

所有的内建方法，可以是method也可以是一个子程序，所以这两种方法 都对，sort @array @array.sort.
最后你要知道，所有的[..] {..}(occurring direct after a term) 仅仅是在使用一个特定的方法，而不是和数组和hash想相联系的。

1:  my $a = [1,2,3];
2:  say $a[2];      #3
3:  #this implies that you don't need special dereferencing syntax,and that you can
4:  #act as arrays, hashes and subs at the same time.没整明白？？？

3.4 Types 类型

在perl6从都有类型，所有的东西都可以看成一个对象，都有一个类型。 变量也可以有一个类型的约束，但是不是必须需要一个类型。

 1:     'a string'  #str字符串
 2:    2           #int整数型
 3:    3.14        #Rat (rational number)有理数
 4:    （1，2，3)   #Seq列表
 5:  #所有的内建类型都是大写字母开头，所有的标准类型都是继承了Any，并且所有的都继承了Mu
 6:  
 7:  #你可以在声明的时候，加上类型
 8:  my Numeric $x = 3,4;
 9:  my $Int @a 1,2,3;
10:  
11:  #对一个数组类型的类型定义，作用在数组的元素上，
12:  #Str @s  @s这个数组只能够包含字符串元素的数组
13:  
14:  #一些类型是隶属与一个大的分类，比如：整数型（Int），有理数（Rat），浮点型（Num）都是属于
15:  #Numeric这个大的类型
16:  
17:  #要知道一个对象的类型，可以使用.WHAT的方法
18:  say "foo".WHAT;
19:  #如果你要确定一个特殊类型的方法，还有一个方法，
20:  if $x ~~ Int
21:  {
22:      say 'Variable $x contains an integer';
23:  }

我们需要类型的原因
1.编程更加安全
如果你声明了一个特殊的类型，那么你可以执行特定的某种操作，而不用检查
2.可优化的
如果在编译的时候提供了类型，那么运行的程序会有明显的优化。在原则上perl6 不会比C慢
3.可扩展型
有了类型信息和多重的操作路径，你可以很容易对特定的类型改善操作

3.5 基本的控制结构

perl6 和perl5 的控制结构基本相同，最大的不同是你不必在if,while,for等，后面添加 小括号了。事实上所有的标示符后面紧跟着小括号，都会被看成在调用子程序一个名称为if的子 程序，for后面加一个空格，可以改善这种情况，但是直接省略括号更加安全。
if控制结构

1:  #if结构是变化最小的，你依然可以用elsif和else，unless也还在，但是在unless后面不允许else
2:  #分支结构
3:  if $sheep == 0 {say "how boring";}
4:  elsif $sheep ==1 {say "one lonely sheep";}
5:  else {say "a herd,How lovely!";}
6:  
7:  #你依然可以这样用
8:  say "you won" if $answer == 42;

Loops

 1:  for 1..100 -> $x
 2:  {
 3:      say $x;#会输出1 2 3 。。
 4:  }
 5:  #->$x{..}被称为‘pointy block'如同匿名子程序或者lisp中的lambda
 6:  #也可以有不止一个的循环变量
 7:  for 0..5 ->$even,$odd
 8:  {
 9:      say "Even: $even \t Odd: $odd";
10:  }
11:  #结果如下：
12:  #Event:1     Odd：2
13:  #也就是交替出现
14:  
15:  #这个也是hash的迭代的方法
16:  my %hash=
17:      a   => 1,
18:      b   => 2,
19:      c   => 3;
20:  for %hash.kv -> $key,$value
21:  {
22:      say "$key: $value";
23:  }
24:  
25:  #C-风格的for循环
26:  loop （my $x=1;$x<100;$x**2)
27:  {
28:      say $x;
29:  }

Author: GRC <grc@grc>

Date: 2013-05-19 14:55:01 CST

HTML generated by org-mode 6.33x in emacs 23