@magali
В Perl есть несколько способов получить ключи хеша (ассоциативного массива).
1 2 |
my %hash = ('foo' => 1, 'bar' => 2, 'baz' => 3); my @keys = keys %hash; # возвращает ('foo', 'bar', 'baz') |
1 2 3 4 5 |
my %hash = ('foo' => 1, 'bar' => 2, 'baz' => 3); foreach my $key (keys %hash) { print "$key "; } |
1 2 3 4 5 |
my %hash = ('foo' => 1, 'bar' => 2, 'baz' => 3); while (my ($key, $value) = each %hash) { print "$key "; } |
Каждый из этих способов позволяет получить ключи хеша в Perl, и выбор конкретного метода зависит от вашей конкретной задачи и предпочтений.