Как работает многозначный хеш?

Question

[ReD]

Разбирая примеры по работе с хешами в perl,
не смог понять такой пример работы с многозначным хешем:

%ttys=();
open (WHO, "who|");
while(){
        ($user, $tty) = split;
        push(@ {$ttys{$user}}, $tty);
}
foreach $user (sort keys %ttys){
	print "$user: @{$ttys{$user}}\n"
}

Не cосвсем понимаю как происходит помещение в массив:

push(@ {$ttys{$user}}, $tty);

Поясните пожалуйста!

Answer 1

[vaut]

Именно по этой структуре.
push принимает два аргумента, массив (@{$ttys{$user}}) и значение которое добавляет ($tty)

что за зверь @{$ttys{$user}}?
$ttys{key}означает что работаем с скаляром соответствующим ключу key
@{$ref}получение масива по ссылке.
Вместе получается так: взять из хеша ttys значение по ключу $user и разыменовывать полученную ссылку как массив.

Для изучения перла можно почитать верблюда или если это слишком много ламу (shop.oreilly.com/product/9780596000271.do и shop.oreilly.com/product/9781565920422.do) А именно такие сложные структуры хорошо описаны в shop.oreilly.com/product/0636920012689.do

Comments

[ReD]

Спасибо! Стало яснее!

Answer 2

[krypt3r]

Мне в свое время разобраться с такими структурами на начальной стадии помогла книга "Perl. Специальный справочник" С. Холзнера.
И, кстати, код у вас неважнецкий. Сравните с таким:

#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dumper;

my %ttys;
open my $WHO, '-|', '/bin/who' or die "open() error: $!\n";
while (<$WHO>) {
    my ($user, $tty) = split;
    push @{$ttys{$user}}, $tty;
}
close $WHO;
#print Dumper(\%ttys);
foreach my $user (sort keys %ttys) {
  print "$user: @{$ttys{$user}}\n";
}

Comments

[pcdesign]

Perl critic и приведенный вами код тоже считает "неважнецким" :)

[krypt3r]

pcdesign Кто/что такое "Perl critic"?

[pcdesign]

krypt3r: Ну, погуглите, узнаете.

[krypt3r]

pcdesign понял, благодарю за наводку. Хоть перл и не основной язык для меня, я стараюсь улучшить свой код

[ReD]

Да это и не мой код, это один из приводимых примеров, которые я разбираю! А за наводки вам обоим спасибо!

[krypt3r]

pcdesign Perl::Critic внезапно на мой код выше сказал "07.pl source OK", даже с установкой -severity=>'brutal'

[pcdesign]

krypt3r:

# perlcritic -1 toster222.pl 
No package-scoped "$VERSION" variable found at line 1, column 1.  See page 404 of PBP.  (Severity: 2)
Quotes used with a noisy string at line 8, column 15.  See page 53 of PBP.  (Severity: 2)
Magic punctuation variable $! used in interpolated string at line 8, column 43.  See page 79 of PBP.  (Severity: 2)
Return value of "close" ignored at line 13, column 1.  Check the return value of "close" for success.  (Severity: 2)
Return value of flagged function ignored - close at line 13, column 1.  See pages 208,278 of PBP.  (Severity: 1)
Return value of flagged function ignored - print at line 14, column 1.  See pages 208,278 of PBP.  (Severity: 1)
Return value of flagged function ignored - print at line 16, column 5.  See pages 208,278 of PBP.  (Severity: 1)

[krypt3r]

pcdesign Это придирки, а не "неважнецкий код"

[pcdesign]

krypt3r: Ну, это ваше право как вы это воспринимаете, это скорее вопрос перфекционизма :)
Я бы так написал вышеприведенный код:
pastebin.com/i8QYJk01

[ReD]

Какая дискуссия развернулась! С интересом слежу и узнаю много нового!

[krypt3r]

pcdesign

No package-scoped "$VERSION" variable found at line 1, column 1.  See page 404 of PBP.  (Severity: 2)
Useless interpolation of literal string at line 8, column 32.  See page 51 of PBP.  (Severity: 1)
Found "\N{SPACE}" at the end of the line at line 13, column 1.  Don't use whitespace at the end of lines.  (Severity: 1)
Return value of flagged function ignored - print at line 15, column 5.  See pages 208,278 of PBP.  (Severity: 1)

:D Ну что тут сказать. У вас интересный пример вышел с использованием IPC::Open3, надо запомнить

[pcdesign]

krypt3r: Я просто не стал многие вещи исправлять, а вот для продакшена это хорошая практика указывать версию:
use version; our $VERSION = qv('1.0.3');
И этот пункт был бы побежден "No package-scoped "$VERSION"
Ну и остальные вещи тоже можно поправить.
Опять таки вопрос перфекционизма.