Kawan yg bertanyakan Perl + AD bertanyakan soalan ini.. bagaimana nak bermain dgn perl array. lebih tepat sekali, memasukkan nilai HASH ke dlm ARRAY utk digunakan kemudian nanti.
contoh disini:
#define testing var
my %h = (
1=>'k',
2=>'l'
);
my @a = qw(
a
b
c
);
#push hash to array
push @a, \%h;
#processing array
foreach my $insidea(@a){
print "- $insidea\n";
foreach my $insideh(keys %{$insidea}){
print " ->${$insidea}{$insideh}\n";
}
}

No comments:
Post a Comment