VPF::Неверный результат вывода хеша

worsvch

Дата 25.11.2013, 12:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 23.4.2009

Репутация: нет
Всего: нет

Есть скрипт на perl, очень смутил результат вывода. Подскажите, почему такой результат?

Код


#!/perl

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

my %lines = (
     first => (
        1 => 'a',
        2 => 'b',
        3 => 'c'
    ),
     second => (
        4 => 'd',
        5 => 'e',
        6 => 'f'
    )
);

my $line = \%lines;

print Dumper($line);

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

Код


$VAR1 = {
          '6' => 'f',
          '4' => 'd',
          'c' => 'second',
          'first' => 1,
          'a' => 2,
          'b' => 3,
          '5' => 'e'
        };

ginnie

Дата 25.11.2013, 13:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

worsvch, тут все просто:

Код


first => (
        1 => 'a',
        2 => 'b',
        3 => 'c'
    ),
     second => (
        4 => 'd',
        5 => 'e',
        6 => 'f'
    )

трактуется как список ('first',1,'a',2,'b'...) и преобразуется в хэш. То, что Вы хотите, записывается так:

Код


my %lines = (
     first => {
        1 => 'a',
        2 => 'b',
        3 => 'c'
    },
     second => {
        4 => 'd',
        5 => 'e',
        6 => 'f'
    }
);

Это сообщение отредактировал(а) ginnie - 25.11.2013, 13:14

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

worsvch

Дата 25.11.2013, 13:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 23.4.2009

Репутация: нет
Всего: нет

Цитата(ginnie @ 25.11.2013, 13:13)

worsvch, тут все просто:

Код


first => (
        1 => 'a',
        2 => 'b',
        3 => 'c'
    ),
     second => (
        4 => 'd',
        5 => 'e',
        6 => 'f'
    )

трактуется как список ('first',1,'a',2,'b'...) и преобразуется в хэш. То, что Вы хотите, записывается так:

Код


my %lines = (
     first => {
        1 => 'a',
        2 => 'b',
        3 => 'c'
    },
     second => {
        4 => 'd',
        5 => 'e',
        6 => 'f'
    }
);

Спасибо, теперь правильно

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »