VPF::несколько методов do в DBI - Форум программистов

gcc

Дата 30.12.2008, 10:42 (ссылка)

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

Загрузка ...

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

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

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

есть код:

(середина класса, все остальное работает)

Код


    my $dbh = DBI->connect("DBI:$self->{'se'}->{'db_type'}:database=$self->{'se'}->{'db_name'};
          host=$self->{'se'}->{'db_host'}",$self->{'se'}->{'db_user'},$self->{'se'}->{'db_pass'}, 
      { RaiseError => 1 }) || die $DBI::errstr;  

          $dbh->do(qq{INSERT INTO table0
              (a,b)
              VALUES (?,NOW())},
                         undef, $dd->{'a'});
                           }

           $dbh->do(qq{DELETE FROM table1
                         WHERE a = ?},
                         undef, $dd->{'a'});           }
                         
           $dbh->do(qq{DELETE FROM dtable2
                         WHERE a = ?},
                         undef, $dd->{a});
                           }

при выполнении второго по счету $dbh use Strict пишет:

Код


Global symbol "$dbh" requires explicit

есть поставить

Код


my $dbh

то не определо $dd

что надо делать?

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

Это сообщение отредактировал(а) gcc - 30.12.2008, 11:36

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

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

arto

Дата 30.12.2008, 11:33 (ссылка)

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

Загрузка ...

Эксперт

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

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

на какой строчке у вас $dbi?

gcc

Дата 30.12.2008, 11:36 (ссылка)

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

Загрузка ...

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

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

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

arto,

я ошибся: $dbh

строка:11

в чем может быть проблема?
действия я описал, что use Strict ругается...

Это сообщение отредактировал(а) gcc - 30.12.2008, 11:54

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

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

gcc

Дата 30.12.2008, 12:33 (ссылка)

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

Загрузка ...

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

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

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

недосмотрелся

строка 8

Код

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

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

ginnie

Дата 30.12.2008, 12:34 (ссылка)

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

Загрузка ...

Эксперт

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

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

gcc, а что у Вас за 3 непонятные фигурные скобки, по одной после каждого do()?

P.S. Вы уже сами нашли :о)

P.P.S. Рекомендую для случаев множественного обращения к одному элементу хэша сохранять его в отдельной переменной, это повысит быстродействие.

Код


my $dbinfo = $self->{se};
my $dbh = DBI->connect("DBI:$dbinfo->{db_type}:database=$dbinfo->{db_name}; host=$dbinfo->{db_host}",
                                        $dbinfo->{db_user},$dbinfo->{db_pass}, { RaiseError => 1 } )
                  || die $DBI::errstr;

Это сообщение отредактировал(а) ginnie - 30.12.2008, 12:41

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

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

gcc

Дата 30.12.2008, 12:39 (ссылка)

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

Загрузка ...

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

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

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

ginnie, недосмотрелся

строка 8

Код

Добавлено @ 12:43
раньше был у меня удобный редактор kate он подсвечивал эти скобки smile

Это сообщение отредактировал(а) gcc - 30.12.2008, 12:43

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

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

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