読者です 読者をやめる 読者になる 読者になる

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";