Как я могу напечатать содержимое хэша в Perl?

Я продолжаю печатать свой хэш как количество выделенных сегментов. Как мне распечатать содержимое моего хэша?

Без использования whileцикла было бы наиболее предпочтительным (например, однострочник будет лучше).

Data :: Dumper - твой друг

use Data::Dumper;
my %hash = ('abc' => 123, 'def' => [4,5,6]);
print Dumper(\%hash);

будет выводить

$VAR1 = {
          'def' => [
                     4,
                     5,
                     6
                   ],
          'abc' => 123
        };

Легко:

print "$_ $h{$_}\n" for (keys %h);

Элегантно, но на самом деле на 30% медленнее (!):

while (my ($k,$v)=each %h){print "$k $v\n"}

Вот как вы можете печатать без использования Data::Dumper

print "@{[%hash]}";

В целях отладки я буду часто использовать YAML.

use strict;
use warnings;

use YAML;

my %variable = ('abc' => 123, 'def' => [4,5,6]);

print "# %variable\n", Dump \%variable;

Результаты в:

# %variable
---
abc: 123
def:
  - 4
  - 5
  - 6

В других случаях я буду использовать Data::Dump. Вам не нужно устанавливать столько переменных, чтобы вывести его в хорошем формате, чем вы делаете Data::Dumper.

use Data::Dump = 'dump';

print dump(\%variable), "\n";

{ abc => 123, def => [4, 5, 6] }

Совсем недавно я использовал Data::Printerдля отладки.

use Data::Printer;
p %variable;

{
    abc   123,
    def   [
        [0] 4,
        [1] 5,
        [2] 6
    ]
}

(Результат может быть намного более красочным на терминале)

В отличие от других примеров, которые я показал здесь, этот предназначен явно только для демонстрации. Который появляется легче, если вы выкидываете структуру связанной переменной или структуры объекта.

use strict;
use warnings;

use MTie::Hash;
use Data::Printer;

my $h = tie my %h, "Tie::StdHash";
@h{'a'..'d'}='A'..'D';
p %h;
print "\n";
p $h;

{
    a   "A",
    b   "B",
    c   "C",
    d   "D"
} (tied to Tie::StdHash)

Tie::StdHash  {
    public methods (9) : CLEAR, DELETE, EXISTS, FETCH, FIRSTKEY, NEXTKEY, SCALAR, STORE, TIEHASH
    private methods (0)
    internals: {
        a   "A",
        b   "B",
        c   "C",
        d   "D"
    }
}

Ответ зависит от того, что находится в вашем хеше. Если у вас есть простой хэш простой

print map { "$_ $h{$_}\n" } keys %h;

или

print "$_ $h{$_}\n" for keys %h;

будет делать, но если у вас есть хеш, заполненный ссылками, вы получите что-то, что может пройтись по этим ссылкам и дать разумный вывод. Эта прогулка по ссылкам обычно называется сериализацией. Есть много модулей, которые реализуют различные стили, некоторые из наиболее популярных:

• Data::Dumper
• Data::Dump::Streamer
• YAML::XS
• JSON::XS
• XML::Dumper

Из-за того, что Data::Dumperявляется частью базовой библиотеки Perl, она, вероятно, самая популярная; Тем не менее, некоторые другие модули могут предложить очень хорошие вещи.

Мой любимый: Smart :: Комментарии

use Smart::Comments;
# ...

### %hash

Вот и все.

Циклический:

foreach(keys %my_hash) { print "$_ / $my_hash{$_}\n"; }

функциональная

map {print "$_ / $my_hash{$_}\n"; } keys %my_hash;

Но для чистой элегантности я должен был бы выбрать Wrang-Wrang. Для моего собственного кода я бы выбрал свой foreach. Или использовать самосвал тетро.

Самый простой способ в моем опыте - просто использовать Dumpvalue .

use Dumpvalue;
...
my %hash = { key => "value", foo => "bar" };
my $dumper = new DumpValue();
$dumper->dumpValue(\%hash);

Работает как шарм, и вам не нужно беспокоиться о форматировании хэша, поскольку он выводит его, как это делает отладчик Perl (отлично подходит для отладки). Кроме того, Dumpvalue включен в стандартный набор модулей Perl, так что вам не придется связываться с CPAN, если вы находитесь за каким-то драконовским прокси (как я на работе).

Если вы хотите быть педантичным и держать его в одной строке (без использования операторов и шебанга), тогда я как бы отброслю ответ Тетромино и предложу:

print Dumper( { 'abc' => 123, 'def' => [4,5,6] } );

Не делать ничего особенного, кроме использования анонимного хеша для пропуска временной переменной;)

Я добавляю один пробел для каждого элемента хэша, чтобы увидеть его хорошо:

print map {$_ . " "} %h, "\n";

Мне очень нравится сортировать ключи в одном коде строки:

print "$_ => $my_hash{$_}\n" for (sort keys %my_hash);