Perl::無名配列と無名ハッシュ

Perl

引き続きリャマ本とアルパカ本から

今の時代だと大規模な実システムとかじゃないと
いまいちリソースに対して近くで感じられないのが損だなって思う。

メモリも128Kとかで持ち歩けるようなマシンがあったら楽しそう。

無名配列



#!/usr/bin/env perl
use strict;

use warnings;
use 5.010;
my @foo = qw(1 2 3);

my $bar = $foo[1];

say $bar;



my $zzz = [1, 3, 5, 7];
say $zzz->[0];

say $$zzz[0];
say $zzz->[2];

say $$zzz[2];

みたまんま。

　無名ハッシュ



#!/usr/bin/env perl
use strict;

use warnings;
use 5.010;
my %hoge = (

  one => "1",

  two => "2",

);
# my $pointer = \%hoge; <- :x

my @pointer = %hoge;
print "@pointer\n";

print "$pointer[2]\n";
my $hoge = {

  one => "1",

  two => "2",

};
print "$hoge->{one}\n";

print "$$hoge{one}\n";
print "$hoge->{two}\n";

print "$$hoge{two}\n";