VPF::аномалия с хэшами - Форум программистов

gcc

Дата 13.11.2009, 03:47 (ссылка)

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

Загрузка ...

Агент алкомафии

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

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

есть код:

Код


...............

                 $loop_data->{let_look_profile} ||= 0; 
                 
      use Data::Dumper;
      print Dumper($loop_data);

        if (  $loop_data->{let_look_profile} ne '1'  
        
         && ( ( ( $c->user_exists() && $args[0] != $c->user->{user}->{id} )
         || !$c->forward( qw /MyApp::Controller::friends found_friends/, [ $args[0], $c->user->{user}->{id} ] ) )
         && !$c->check_user_roles('moder_co') ) ) {
       
       $c->stash->{no_privat_view} = 1;
       
       
       } else {
.............

(код есть вверху и внизу, его много, $loop_data НЕ переопределеяется нигде, а идет с DBI)

ругается на строку if ( $loop_data->{let_look_profile} ne '1'
пробовал писать по разному == != eq

Код


"Can't use an undefined value as a HASH reference at

отлдка Data::Dumper пишет

Код


          'let_look_profile' => 0,

что с эти делать?

как с этим бороться?

Это сообщение отредактировал(а) gcc - 13.11.2009, 06:47

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

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

amg

Дата 13.11.2009, 06:10 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

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

Цитата(gcc @ 13.11.2009, 03:47

)

ругается на строку if ( $loop_data->{let_look_profile} ne '1'

Не обязательно на эту строку, это ругань на одну из HASH reference, которые в условиях ифа. Смотрите:

Код

#!/usr/bin/perl -w

if ( 1 &&
     $a == 0) {print "\n"}

Код

Name "main::a" used only once: possible typo at ./sss line 4.
Use of uninitialized value in numeric eq (==) at ./sss line 3.

Т.е. ругань на неинициализированную величину идет не на ту строку, в которой эта величина используется в сравнении (строка 4), а на предыдущую строку, в кторой начинается выражение
1 &&
$a == 0

Это сообщение отредактировал(а) amg - 13.11.2009, 06:19

gcc

Дата 13.11.2009, 06:50 (ссылка)

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

Загрузка ...

Агент алкомафии

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

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

спасибо, я разобрался, хотел удалить первый пост, но увидел что кто-то ответил

там было очень много ошибок в коде, пришлось все анализировать, код не понравился

вот это было не определено еще $c->user->{user}->{id}, НО в других случаях у меня вроде бы всегда ругалось именно на строку где не определено было... а тут именно на первую в if, наверное потомучто там ИЛИ || стояло у меня везде...

Это сообщение отредактировал(а) gcc - 13.11.2009, 07:04

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

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

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