- 论坛徽章:
- 7
|
本帖最后由 rubyish 于 2015-04-18 02:17 编辑
- #!/usr/bin/perl
- use 5.016;
- my $r1 = [ 1, 2, 3 ];
- my $idx = 1;
- say $$r1[$idx]; # 2
- say ${$r1}[$idx]; # 2
- say $r1->[$idx]; # 2
- say $$r1[1]; # 2
- my $r2 = { a => 1, b => 2 };
- my $name = 'a';
- say $$r2{$name}; # 1
- say ${$r2}{$name}; # 1
- say $r2->{$name}; # 1
- say $r2->{'a'}; # 1
- say $r2->{a}; # 1
- my $r3 = { a => { b => 1, c => 2 }, b => { x => 1, d => 3 } };
- my $nam = 'a';
- say $$r3{$nam}{b}; # 1
- say ${$r3}{$nam}{b}; # 1
- say ${ ${$r3}{$nam} }{b}; # 1
- say $$r3{$nam}{'b'}; # 1
- say $r3->{$nam}{b}; # 1
- say $r3->{$nam}->{b}; # 1
- say ${ $r3->{$nam} }{b}; # 1
- my $r4 = {
- a => [ { c => 1, d => 2 }, { a => 5, n => 77 } ],
- b => [ { c => 4, d => 6 }, { a => 3, n => 22 } ]
- };
- my $block_idx = 0;
- say $$r4{'a'}[$block_idx]{'c'}; # 1
- say $$r4{a}[$block_idx]{c}; # 1
- say ${$r4}{a}[$block_idx]{c}; # 1
- say ${ $$r4{a} }[$block_idx]{c}; # 1
- say ${ ${$r4}{a} }[$block_idx]{c}; # 1
- say ${ $$r4{a}[$block_idx] }{c}; # 1
- say ${ ${$r4}{a}[$block_idx] }{c}; # 1
- say ${ ${ ${$r4}{a} }[$block_idx] }{c}; # 1
- say ${ $r4->{a} }[$block_idx]{c}; # 1
- say ${ ${ $r4->{a} }[$block_idx] }{c}; # 1
- say $r4->{a}[$block_idx]{c}; # 1
- say $r4->{a}->[$block_idx]{c}; # 1
- say $r4->{a}[$block_idx]->{c}; # 1
- say $r4->{a}->[$block_idx]->{c}; # 1
- say $r4->{a}[0]{c}; # 1
- say $$r4{a}[0]{'c'}; # 1
- __DATA__
- 1 $$ref[ $idx ]
- 2 $$ref{ $name }
- 3 $$ref{ $name }{"index"}
- 4 $$ref{"block"}[ $block_idx ]{"name"}
复制代码 |
|