LINUX.ORG.RU

История изменений

Исправление outtaspace, (текущая версия) :

У меня очень размашистый стиль. В этом примере важна каждая запятая и кавычка - каждый символ на своем месте и соответствует моему стилю.

Имя хэша - всегда единственное число. Имя массива - множественное.

use Carp qw( confess );

my @retvals;

my @abooks = (
    {
        Name => 'drBatty',
        Phone => {
            Home => '123',
            Work => '345',
        },
    },
);

for my $each_record_hr ( @abooks ) {
    my $phones_hr = $each_record_hr->{'Phone'};

    for my $each_phone ( values %{ $phones_hr } ) {
        check( $each_phone ) or confess 'invalid phone number';
        push @retvals, $each_phone;
    }
}

Исходная версия outtaspace, :

У меня очень размашистый стиль. В этом примере важна каждая запятая и кавычка - каждый символ на своем месте и соответствует моему стилю.

Имя хэш - всегда единственное число. Имя массив - множественное.

use Carp qw( confess );

my @retvals;

my @abooks = (
    {
        Name => 'drBatty',
        Phone => {
            Home => '123',
            Work => '345',
        },
    },
);

for my $each_record_hr ( @abooks ) {
    my $phones_hr = $each_record_hr->{'Phone'};

    for my $each_phone ( values %{ $phones_hr } ) {
        check( $each_phone ) or confess 'invalid phone number';
        push @retvals, $each_phone;
    }
}