#!/usr/bin/env perl6 
use v6; 
use DBIish; 
use YAML; 
my $base_dir = "/etc/puppet/webui"; 
# 函數(shù)在 Perl6 中依然使用 sub 關鍵字定義，不過有個超酷的特性是 multi sub 
# 腳本中沒有用到，但是在 YAML::Dumper 中遍地都是，這里也提一句。 
# MAIN 函數(shù)在 Perl6 里可以直接用 :$opt 命令參數(shù)起 getopt 的作用 
# 不過 ENC 腳本就是直接傳一個主機名，用不上這個超酷的特性 
sub MAIN($node) { 
# connect 方法接收參數(shù)選項是 |%opts，所以可以把哈希直接平鋪寫 
# 這個 | 的用法一個月前在《Using Perl6》里看到過 
	my $dbh = DBIish.connect( 'SQLite', database => "{$base_dir}/node_info.db" ); 
	my $sth = $dbh.prepare("select * from node_info where node_fqdn = ?"); 
	$sth.execute("$node"); 
	my $ret = $sth.fetchrow_hashref; 
	my $res; 
	if ( !$ret ) { 
		$res = { 
# Perl5 的 qw() 在 Perl6 里直接寫成  。也不用再通過 [] 來指明是引用 
			classes     => , 
			environment => 'testing', 
		}; 
	} 
	else { 
		$res = { 
			environment => $ret{'environment'}, 
			parameters  => { role => $ret{'role'} }, 
			classes     => {}, 
		}; 
# 這個 for 的用法，在 Perl5 的 Text::Xslate 模板里就用過 
		for split(',', $ret{'classes'}) -> $class { 
			if ( $class eq 'nginx' ) { 
# 這個  寫這行 
# 如果不習慣這種流向操作符的，可以用,號，反正不能跟 Perl5 那樣啥都不寫 
# 這里比較怪的一點是我試圖把這么長的一句分成多行寫，包括每行后面加，我看到 YAML 代碼里就用分行了，但是我這就會報錯 
# Perl6 的正則變化較大，這里 /^#/ 要寫成 /^'#'/ 或者 /^x23/ 
# 正則 // 前面不加 m// 不會立刻開始匹配 
# 原先的 s///g 可以寫作 s:g///，也可以寫作對象式的 .subst(m//, '', :g)，. 前面為空就是默認的 $_ 
# 捕獲的數(shù)據(jù)存在 @() 數(shù)組里，也可以用 $/[i] 的形式獲取 
# 字符串內插時，不再寫作 ${*}，而是 {$*} 的形式 
# 命名捕獲這里沒用上，寫個示例： 
#     $str ~~ /^(w+?)$=(w ** 4)w$/; 
#     $/.chomp.say; 
# 注意里面的 w{4} 變成了 w ** 4 
				my @needs <== map { .subst(m/^(.+):(d+)$/, "{$/[0]} max_fails=30 weight={$/[1]}", :g) } <== grep { !m/^x23/ } <== split(',', $ret{'extstr'}); 
				$res{'classes'}{'nginx'}{'iplist'} = @needs; 
			} 
			else { 
# Perl5 的 undef 不再使用，可以使用 Nil 或者 Any 對象 
				$res{'classes'}{$class} = Nil; 
			} 
		} 
	}; 
	$dbh.disconnect(); 
# 這個 dump 就是 YAML 模塊導出的函數(shù) 
# Perl6 的模塊要導出函數(shù)不再需要 Exporter 那樣，直接用 our sub dump($obj) {} 就可以了 
	say dump($res); 
};

diff --git a/lib/YAML/Dumper.pm b/lib/YAML/Dumper.pm 
index d7a7981..ec47341 100644 
--- a/lib/YAML/Dumper.pm 
+++ b/lib/YAML/Dumper.pm 
@@ -2,16 +2,16 @@ use v6; 
 class YAML::Dumper; 
 has $.out = []; 
-has $.seen is rw = {}; 
+has $.seen = {}; 
 has $.tags = {}; 
 has $.anchors = {}; 
 has $.level is rw = 0; 
-has $.id is rw = 1; 
+has $.id = 1; 
 has $.info = []; 
 method dump($object) { 
	 $.prewalk($object); 
-    $.seen = {}; 
+    $!seen = {}; 
	 $.dump_document($object); 
	 return $.out.join(''); 
 } 
@@ -45,11 +45,11 @@ method dump_collection($node, $kind, $function) { 
 method check_special($node) { 
	 my $first = 1; 
-    if $.anchors.exists($node.WHICH) { 
-    if $.anchors.exists($node.WHICH) { 
+    if $.anchors{$node.WHICH}:exists { 
		 push $.out, ' ', '&' ~ $.anchors{$node.WHICH}; 
		 $first = 0; 
	 } 
-    if $.tags.exists($node.WHICH) { 
+    if $.tags{$node.WHICH}:exists { 
		 push $.out, ' ', '!' ~ $.tags{$node.WHICH}; 
		 $first = 0; 
	 } 
@@ -64,7 +64,7 @@ method indent($first) { 
			 return; 
		 } 
		 if $.info[*-1] eq 'seq' && $.info[*-2] eq 'map' { 
-            $seq_in_map = 1; 
+            $seq_in_map = 0; 
		 } 
	 } 
	 push $.out, "n"; 
@@ -155,7 +155,8 @@ method dump_object($node, $type) { 
	 $.tags{$repr.WHICH} = $type; 
	 for $node.^attributes -> $a { 
		 my $name = $a.name.substr(2); 
-        my $value = pir::getattribute__PPs($node, $a.name);     #RAKUDO 
+        #my $value = pir::getattribute__PPs($node, $a.name);     #RAKUDO 
+        my $value = $a.get_value($node);                         #for non-parrot 
		 $repr{$name} = $value; 
	 } 
	 $.dump_node($repr);