Perl6读书笔记.pdf

Using Perl 6 读书笔记 Page 1 of 30 第二章 基础 假设有一场乒乓球比赛，比赛结果以这种格式记录： Player1 Player2 | 3:2 这意味着选手1与选手2的比分为3:2, 你需要一个脚本算出每位选手赢了几场比赛并且胜了几局。 输入数据（存储在一个叫做scores的文件中）像下面这样： 1 Beth Ana Charlie Dave 2 Ana Dave | 3:0 3 Charlie Beth | 3:1 4 Ana Beth | 2:3 5 Dave Charlie | 3:0 6 Ana Charlie | 3:1 7 Beth Dave | 0:3 第一行是选手清单。随后每一行记录着比赛结果。 这里使用Perl6给出一种解决方案： 1 use v6; 2 3 my $file = open scores; 4 my @names = $file.get.words ; # get方法读入一行 5 6 my %matches; # 赢得比赛次数 7 my %sets; # 赢得比赛局数 8 9 for $file.lines - $line { 10 my ($pairing, $result) = $line.split( | ); # 对剩下的每一行调用split操作 11 my ($p1, $p2) = $pairing.words; # 提取选手1和选手2的名字 12 my ($r1, $r2) = $result.split(:); # 提取比赛比分 13 mk:@MSITStore:C:\Documents%20and%20Settings\sluser\桌面\Perl6.chm::/8e2f882d... 2015-7-4 Using Perl 6 读书笔记 Page 2 of 30 14 %sets{$p1} += $r1; # 选手1赢得的比赛局数 15 %sets{$p2} += $r2; # 选手2赢得的比赛局数 16 17 if $r1 $r2 { #如果每场比赛中，选手1赢的局数多于选手2，则选手1赢得的比赛数+1，反之选手2的+1 18 %matches{$p1}++; 19 } else { 20 %