perl6 学习笔记 - (数据相关)

hitsubunnu

1. 
   
2. Perl6 入门学习笔记
   
3. 
   
4. 一 动手试验环境 pugs
   
5. 1.pugs 下载
   
6.         [url]http://www.jnthn.net/perl6/pugs-win32.zip[/url]
   
7. 
   
8. 2.pugs 安装
   
9.         需要安装 perl5.8
   
10.         解压缩后即可使用（windows环境）
    
11. 
    
12. 3.pugs环境测试
    
13.        
    
14.         命令行：
    
15.         cd c:\pugs
    
16.         c:\pugs>pugs.exe
    
17.         c:\pugs>say “hello pugs!\n”;
    
18.   
    
19.         执行文件：
    
20.         pugs hell.p6   # 注意文件后缀为 .p6
    
21.        
    
22. 可参照 [url]http://www.programmersheaven.com/2/Perl6-QuickStart[/url]
    
23. 
    
24. 二 数据
    
25. I. 字符串
    
26. 1.定义
    
27.         my $str1 = "this is a";
    
28.         my $str2 = "$str1 pig"; #运行结果 this is a pig
    
29.         my $str3 = '$str1 pig'; #运行结果 $str1 pig
    
30.        
    
31. 2. qq q 等的使用
    
32.         my $str1 = qq(this is a);
    
33.         my $str2 = qq($str1 pig); #运行结果 this is a pig
    
34.         my $str3 = q($str1 pig);  #运行结果 $str1 pig
    
35.        
    
36. 3. {}的使用
    
37.         my $str1 = "{1 + 1}";  # 结果是2 不是{1+1}
    
38.        
    
39. II. 列表
    
40. 1.定义
    
41.         my @list1 = ("123","abc","1a3");
    
42.         my @list2 = ("A".."Z"); # ABCD..Z 从A到Z
    
43.         my @list3 = (1..100);   # 从1到100
    
44.        
    
45. 2.字符串列表
    
46.         my @list = qw(123 abc ddd);
    
47.         my @list = <123 abc ddd>;   # 新的标记法 功能相同
    
48.        
    
49. III. 数组
    
50. 1. 定义
    
51.         my @array;
    
52.         my @array = ("123","abc","1a3");
    
53.         my @array = qw(123 abc ddd);
    
54.         my @array = <123 abc ddd>;
    
55.        
    
56. 2. 赋值
    
57.         my @array[0] = 1;  # 注意不是$array[0]
    
58.         my $value = @array[0];
    
59.         my $value = @array.[0];
    
60.        
    
61.         slice的使用
    
62.         my @values = @array[2,0,1]; #元素位置交换
    
63.        
    
64.         my @values = ( @array[2], @array[0], @array[1] ); # 相同写法
    
65.        
    
66.         my @values = @array[(2, 0, 1)]; # 相同写法
    
67.        
    
68.         my @slice = (2, 0, 1);
    
69.         my @values = @array[@slice];  # 相同写法
    
70.        
    
71. 3. 数组的方法 (.操作符)
    
72.        
    
73.         3.1 延续Perl5的方法  shift unshift pop push splice join
    
74.         @array.shift; #新的写法
    
75.         shift @array; #相同
    
76.        
    
77.         3.2 grep map 不变
    
78.        
    
79.         3.3 新的可用方法
    
80.        
    
81.                 @array.keys()；      # 取得数组的下标
    
82.                 @array.values()；    # 取得数组的值
    
83.                 @array.kv();         # 下标和值一起取得 可以理解为hash的each
    
84.                 @array.elems();      # 元素个数
    
85.                 @array.exists(num);  # 指定下标数存在返回真 不存在返回假
    
86.                 @array.delete(num)； # 删除指定下标元素 复数可
    
87.                 @array.max();                 # 最大值
    
88.                 @array.min();                 # 最小值
    
89.                                                                
    
90.                 my @array = <a b c d e>;
    
91.                 say @array.keys()；     # 01234
    
92.                 say @array.values()；   # abcde
    
93.                 say @array.kv();        # 0a1b2c3d4e
    
94.                 say @array.elems();     # 5
    
95.                 say @array.exists(4);   # 1 如果say @array.exists(6);结果为假
    
96.                 say @array.delete(1,3)；# 删除元素b和d  数组只剩下元素ace
    
97.                
    
98.         3.4 需要特殊注意新的可用方法       
    
99.                
    
100.                 3.4.1 @array.pick(num)；   # 随即取出数组中的不重复元素  类似于rand函数（rand可能取得重复的）
     
101.                
     
102.                 my @array = <a b c d e>;
     
103.                 say @array.pick(5);                # 结果例 eabdc 注意:不会重复
     
104.                 say @array.pick(*);                # * 代表全部元素
     
105.                 扩展
     
106.                 my @array = <z z>;
     
107.                 say @array.pick(2); # ("z", "z")
     
108.                 say @array.pick(3); # ("z", "z")
     
109.                 say @array.pick(3,:repl)； # ("z", "z", "z") :repl 取消限制  注意pugs测试未通过
     
110.                
     
111.                 ——————————————————————————————————————————————————————————————————————————————
     
112.                
     
113.                 3.4.2 @array.first(block); # 返回最初的block中为真的值
     
114.                
     
115.                 my @array = (1 .. 10);
     
116.                 my $result = @array.first( { ($_ == 4) } ); # 4 注意pugs测试未通过
     
117.                
     
118.                 ———————————————————————————————————————————————————————————————————————————————
     
119.                
     
120.                 3.4.3 reduce(block, @array);# 简化操作 # 相当于定义一个规则 根据这个规则进行类推计算
     
121.                
     
122.                 my @array = <1 3 5 7>;
     
123.                 say reduce { $^a + $^b }, @array; # 16
     
124.                 #第一步 先将 1 和 3 看作是  $^a 和 $^b 计算结果为 1+3=4
     
125.                 #第二步 将1和3的结果4看做是 $^a 将下一项 5看做是$^b 再进行计算 4 + 5 = 9  以此类推
     
126.                
     
127.                 # 相当于定义一个规则 根据这个规则进行类推计算
     
128.                 reduce { $^a + $^b + $^c }, @array;
     
129.                
     
130. IV. 范围类型 （range）  # 不知道应该叫什么 大骆驼里面把 .. 叫做范围操作符 暂且叫做范围类型吧
     
131. 1.        定义                #个人观点 因为带有$符号 可以理解为带有方法的特殊字符串
     
132.         my $range = 1 .. 5;     
     
133.         my $range = "a" .. "c";
     
134. 
     
135.     my @array = $range; # 可以给数组初始化
     
136.        
     
137. 2.        方法
     
138.         延续perl5的方法:
     
139.                 $range.shift();
     
140.                 $range.pop()；
     
141.                 $range.reverse()；
     
142.                
     
143. V.        pair类型         
     
144. 1.        定义  
     
145.        
     
146.         简单理解就是 散列的一行数据    #个人观点 因为使用$符号 也可以理解为带有方法的特殊字符串
     
147.        
     
148.         my $pair = "key" => "value";
     
149.         my $pair = :key<value>;                 #相同
     
150.        
     
151.         用法：
     
152.         my $pair = (:key);
     
153.         my $pair = ("key" => 1); # 同じこと
     
154.        
     
155.         my $pair = "key" => ("value-key" => "value-value");
     
156.         say $pair.value.key;         # 结果 value-key  值的key
     
157.         say $pair.value.value;  # 结果 value-value  值的值
     
158. 
     
159.         my $pair = ("key-key" => "key-value") => "value";
     
160.         say $pair.key.key;         # 结果 key-key  key的key
     
161.         say $pair.key.value; # 结果 key-value  key的值
     
162.        
     
163.         和hash的关系：
     
164.         my %hash  = ('key1' => 'value1',
     
165.                                  'key2' => 'value2',
     
166.                                  'key3' => 'value3',       
     
167.                                 );
     
168.         my $pair = %hash.pairs().[0];
     
169.         say $pair;    #  key1 value1
     
170.        
     
171. 2.  给key 和 value 赋值
     
172. 
     
173.         my $pair = ("key" => "value");
     
174.         $pair.value = "newvalue";
     
175.         $pair.key   = "newkey";
     
176.        
     
177. 3.  方法
     
178. 
     
179.         $pair.key()；
     
180.         $pair.value()；
     
181.        
     
182.         $pair.kv()； # 与hash里的each类似
     
183.         my ($key, $value) = $pair.kv();
     
184.        
     
185. VI        散列
     
186. 1.        定义
     
187.         # 注意 my %hash = ( key => value );  缺少引号在pugs下不合法  可以采用 my %hash = <key value>;
     
188.         my %hash = ( "key" => "value" );  
     
189.         my %hash = ( 'key' => 'value' );
     
190.         my %hash = hash("key", "value");  #相同
     
191.                
     
192.         my $pair = ( "key" => "value" );  #新用法
     
193.         my %hash = $pair;
     
194.        
     
195. 2.        赋值
     
196.         my %hash{'key'} = 'value';    # 注意这里是 %hash{'key'}  不是 $hash{'key'}
     
197.         my %hash<key>  = "value";          # %hash<key> 合法    %hash{key} 在perl6下是不合法的
     
198.                
     
199.         my $value = %hash{"foo"};
     
200.         my $value = %hash<foo>;
     
201.        
     
202.         my $value = %hash.{"foo"};
     
203.         my $value = %hash.<foo>;
     
204.        
     
205.         my @values1 = %hash{"foo", "hoge"};
     
206.         my @values2 = %hash<foo hoge>;
     
207.        
     
208. 3.  方法
     
209.        
     
210.         3.1 hash()
     
211.          
     
212.         my %hash = hash("foo"  => "bar");  #
     
213.         my $hash = hash("hoge" => "fuga"); # 注意 这是一个引用
     
214.        
     
215.         3.2 参照数组的方法
     
216.        
     
217.         %hash.keys()；
     
218.         %hash.values()；
     
219.         %hash.kv()；
     
220.         %hash.pairs()；
     
221. 
     
222.         %hash.elems()；      # key的个数
     
223.         %hash.delete("key")；# 删除指定key
     
224.         %hash.exists("key")；# 指定key存在返回真
     

复制代码

hitsubunnu

1. 
   
2. 三 控制结构
   
3. 
   
4. I.        for        的几种使用方法
   
5.        
   
6.         1.        列表
   
7.                 for "123", "abc", "000" {
   
8.                     say $_;
   
9.                 }
   
10.        
    
11.                 用例:
    
12.                 for <111 abb ccc> {
    
13.                            say $_;
    
14.                 }
    
15. 
    
16.                 for @array {
    
17.                     say $_;
    
18.                 }
    
19. 
    
20.                 for 0 .. 5 {
    
21.                     say $_;
    
22.                 }
    
23.        
    
24.         2.  定义变量
    
25.        
    
26.                 for "123", "abc", "000" -> $str{
    
27.                     say $str;
    
28.                 }
    
29.                
    
30.                 for "111", "222", "333", "444" -> $x, $y {    # 注意  列表个数必须是变量个数的倍数 即能整除
    
31.                     say $x, " and ", $y;
    
32.                 }
    
33.                
    
34.                
    
35.                 for "111", "222", "333" -> $x, $y, $z {              # 注意  列表个数必须是变量个数的倍数 即能整除   
    
36.                     say $x, " and ", $y " and ", $z;
    
37.                 }
    
38.                                
    
39. II. loop 用法  相当于C语言中的for语句
    
40.        
    
41.         1.        my $i = 0;
    
42.                 loop ($i = 0; $i < 10; $i++) {
    
43.                     say $i;
    
44.                 }
    
45. 
    
46.         2.  loop (my $i = 0; $i < 10; $i++) {
    
47.                     say $i;
    
48.                 }
    
49. 
    
50.         3.  my $i = 0;
    
51.                 loop {
    
52.                     $i++;
    
53.                     last if $i == 1000;
    
54.                 }
    
55. 
    
56. III. while用法
    
57.        
    
58.         1.  my $i = 0;
    
59.                 while ($i < 5) {
    
60.                     say $i;
    
61.                     $i++;
    
62.                 };
    
63. 
    
64. 
    
65.         2.  my @array = 1..5;
    
66.                 while @array.pop -> $x {
    
67.                     say $x;
    
68.                 }       
    

复制代码

更多的用法和特性可以参照   http://svn.pugscode.org/pugs/t/spec/

有了这些  可以开始用perl6 干很多事情了

[ 本帖最后由 hitsubunnu 于 2008-11-18 15:25 编辑 ]

machine

perl6不错   期待

xpkiller

perl 6什么时候可以出来呀，百度和谷歌都搜不到

redicaps

有个专门讲perl5-perl6的blog
http://perlgeek.de/blog-en/

可惜我现在perl5都没有学好
懒得学perl6

sxy521

国内做perl的人不多啊

ynchnluiti

原帖由 sxy521 于 2009-1-16 12:17 发表
国内做perl的人不多啊

多少算多

smonkey0

谢谢，感觉更严谨了~不错

alenbull

值得一学呀

shaneqi

装上看看。