VPF::Ввод ключа хеша с клавиатуры - Форум программистов

FrenchCheese

Дата 13.11.2010, 12:57 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


my %hof = (
    a    =>   \&a,
    b    =>   \&b,
);

my $cmd=<>;

if ($hof{$cmd}) {$hof{$cmd}->(\@b,0);}
else { warn "Unknown command: $cmd\n";}
print $cmd;

вот вроде бы простой код
у меня есть хэш функций, я ввожу $cmd с клавиатуры, эта строка - ключ хеша
по этому ключу вызывается функция
НО
как только я ввел строку с клавиатуры, перл еще понимает что это строка, но после строчки

Код


if ($hof{$cmd}) {$hof{$cmd}->(\@b,0);}

перл почему то преобразовывает эту строку в число!
в общем понять не могу, почему так?

Jimy

Дата 13.11.2010, 14:44 (ссылка)

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

Загрузка ...

Бывалый

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

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

Ничего там не преобразовывается.
Ищите ошибку в другом месте.

FrenchCheese

Дата 13.11.2010, 16:26 (ссылка)

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

Загрузка ...

Новичок

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

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

это то понятно что там ничего не преобразовывается
но если после if вывести на экран $cmd, то выведется 0, почему?

FrenchCheese

Дата 13.11.2010, 16:43 (ссылка)

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

Загрузка ...

Новичок

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

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

написал маленький тест

Код


%a = ( haha => 1,
       ha   => 2,
       h    => 3,
                  );
     
$a=<>;

if ($a{$a}) {
    print $a{$a};
}

$a=<>

вот почему эта программа не выводит ничего когда я ввожу с клавиатуры h, ha, haha?
ошибка только тут, тк это весь код программы, ситуация аналогичная

KSURi

Дата 13.11.2010, 16:47 (ссылка)

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

Загрузка ...

Опытный

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

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

perldoc -f chomp

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

Died at Life.pl line 21

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