انشاء array من anonymous hash

في بيرل, لو أردت أن تكتب hash فستكتبه هكذا :

#!perl -w
use strict;
use warnings;

# Usual hash
my %usual = (
    "name" => "Barakat",
    "id"   => 1,
);

print "Name: " . $usual{name}. "\n";
print "ID  : " . $usual{id}  . "\n";

> perl example.pl
Name: Barakat
ID  : 1
>

الـanonymous hash نفس الشيء الأ أنك لاتستخدم الرمز % الذي يخبر بأن هذا hash , بل تستخدم $ هكذا :

#!perl -w
use strict;
use warnings;

my %usual = (
    "name" => "Barakat",
    "id"   => 1,
);

# Anonymous hash
my $anonymous = \%usual;

print "Type: " . $anonymous . "\n";
print "Name: " . $anonymous->{name}. "\n";
print "ID  : " . $anonymous->{id}  . "\n";

> perl example.pl
Type: HASH(0x1261c34)
Name: Barakat
ID  : 1

أو مباشرة :

#!perl -w
use strict;
use warnings;

# Anonymous hash
my $anonymous = {
    "name" => "Barakat",
    "id"   => 1,
};

print "Type: " . $anonymous . "\n";
print "Name: " . $anonymous->{name}. "\n";
print "ID  : " . $anonymous->{id}  . "\n";

> perl example.pl
Type: HASH(0x5aaf04)
Name: Barakat
ID  : 1
>

فـ$anonymous تعمل كمؤشر لـhash.

لعمل مصفوفة من المؤشرات يُمكن عمله هكذا :

#!perl -w
use strict;
use warnings;

my @ann_array;

foreach my $i (0..10) {
    $ann_array[$i] = {
        "name" => "Barakat",
        "id"   => $i,
    };
}

print $ann_array[0]->{name} . " | " . $ann_array[0]->{id} . "\n";
print $ann_array[1]->{name} . " | " . $ann_array[1]->{id} . "\n";
print $ann_array[2]->{name} . " | " . $ann_array[2]->{id} . "\n";
print $ann_array[3]->{name} . " | " . $ann_array[3]->{id} . "\n";
# and so on ...

> perl example.pl
Barakat | 0
Barakat | 1
Barakat | 2
Barakat | 3
>