FireC@t @ Perl6

摘要： use HTTP::UserAgent; my $ua = HTTP::UserAgent.new; say 'All method:'; say $ua.^methods; my %data = :cmd('whoami'); my $result = $ua.post('http://localhost/1.php', %data); say $result.content; 阅读全文

摘要： 1 use v6; 2 my %ha= a=>1, :b, :!c; 3 say %ha; 4 say %ha; 5 #这里不能用%ha{a}, {a}表示调用a()函数了， 在perl6中， {}有特别函义 6 say %ha{'a'}; 阅读全文

摘要： 1 use v6; 2 #如果参数是可选的， 可以在后面加个?后定义 3 sub Choo($x, $y?){ 4 say $x+$y; 5 } 6 Choo(1); 7 Choo(1,2); 8 #具名参数， 也就是字典形式的调用 9 sub Dit(:name($n), :age($a)){ 10 say $n,' is ', $a; 11 } 12 Dit(nam... 阅读全文