Потеря переменной после отработки цикла while

[koliama]

Доброго дня всем.
Сразу хочу сказать, что в перле я новичек). Делаю следующее:
sub all_traf
    {
        $sth = $dbh -> prepare("SELECT sum(fsize)/1024/1024 AS Summa FROM $table;");
        $sth -> execute();
        while (my $summa = $sth->fetchrow_array())
            {
            }
              $q->table({-border=>1,
                        -width=>300,
                        -align=>CENTER,
                        -bgcolor=>\'#666666\'},
                        $q->caption(\'Summa vsego trafica\'),
                        $q->Tr([$q->td({-width=>\'50%\'},[\'All trafic\',$summa])]));

        $sth->finish;
        $dbh->disconnect();
    }
и далее вызываю эту подпрограмму в теле осн. программы. В итоге отработки данного модуля я хочу получить таблицу из одной строки и двух ячеек
                All trafic     $summa
таблица выводится, а значение переменной $summa - нет. Вижу только пустую ячейку... Получается очень странное дело - переменная $summa видна только в теле цикла.
Помогите разобраться.

[vladsu]

Читайте об области видимости переменных. А пока сделайте так

Код: [Выделить]

sub all_traf
{
my $summa;
$sth = $dbh -> prepare("SELECT sum(fsize)/1024/1024 AS Summa FROM $table");
$sth -> execute();
while ($summa = $sth->fetchrow_array())
{
}
$q->table({-border=>1,
-width=>300,
-align=>CENTER,
-bgcolor=>\'#666666\'},
$q->caption(\'Summa vsego trafica\'),
$q->Tr([$q->td({-width=>\'50%\'},[\'All trafic\',$summa])]));

$sth->finish;
$dbh->disconnect();
}


[koliama]

Уважаемый vladsu
последовал вашему совету - результат прежний. После выполнения цикла переменная $summa не видна.
Может быть возможно обойтись без цикла для задания скалярной переменной $summa значения полученного после отработки запроса? все равно запрос возвращает единственное значение....

[vladsu]

Я плохо знаю ДБАй, но можно попробовать написать

$summa = ( $sth->fetchrow_array )[0];

[koliama]

хм.. результат то тот же. в цикля я могу с переменной делать все что угодна, вне его - нет...

[koliama]

Оказывается здесь цикл и не нужен. достаточно просто поставить условие

if ($summa = $sth->fetchrow_array())
{
печатаем таблицу
}

сенкс за ответы.

[vladsu]

Вы уверенны что Вы эту строку

$summa = ( $sth->fetchrow_array )[0];

написали в место

while ($summa = $sth->fetchrow_array())
{
}
?

[Chs]

vladsu
Он уверен.
После этого цикла сумма всегда будет 0.
while ($summa = $sth->fetchrow_array()[0])
{
}

[koliama]

Chs
А можно поподробнее про ноль после цикла. Интуитивно я понимаю почему, но объяснить не могу...?

[Chs]

В условии цикла присваивание.
Соответственно пока условие истинно крутится цикл, а выход из него когда условие не выполняется, но значение-то все равно присваеевается переменной при проверке условия.
Так понятно?

[vladsu]

Chs:
Он уверен.
После этого цикла сумма всегда будет 0.
while ($summa = $sth->fetchrow_array()[0])
{
}

Вы что-то путаете, я не предлагал использовать цикл
я предложил использовать

Код: [Выделить]


sub all_traf {

    $sth = $dbh -> prepare("SELECT sum(fsize)/1024/1024 AS Summa FROM $table");
    $sth -> execute();

    my $summa = ($sth->fetchrow_array)[0];

    $q->table({-border=>1,
               -width=>300,
               -align=>CENTER,
               -bgcolor=>\'#666666\'},
    $q->caption(\'Summa vsego trafica\'),
    $q->Tr([$q->td({-width=>\'50%\'},[\'All trafic\',$summa])]));

    $sth->finish;
    $dbh->disconnect();
}

[koliama]

Chs
Семен Семеныч..... Ну конечно.
биг сенкс
vladsu
Кстати с вашим вторым советом
my $summa = ($sth->fetchrow_array)[0];
не работает.
выдает что-то типа
$summa = Array(0x........)

[Chs]

Вы что-то путаете, я не предлагал использовать цикл

http://forums.webscript.ru/showthread.php?s=&postid=109038#post109038
Да???

[vladsu]

А мне показалось, что Ваш пост

Chs:
Он уверен.
После этого цикла сумма всегда будет 0.
while ($summa = $sth->fetchrow_array()[0])
{
}

был ответом на мой вопрос

vladsu:
Вы уверенны что Вы эту строку

$summa = ( $sth->fetchrow_array )[0];

написали в место

while ($summa = $sth->fetchrow_array())
{
}
?

koliama:
vladsu
Кстати с вашим вторым советом...

Странно, а у меня это

Код: [Выделить]


my $sth = $dbh -> prepare("SELECT sum($fild_name)/1024/1024 AS Summa FROM $table");
   $sth -> execute();

my $summa = ($sth->fetchrow_array)[0];

print $summa;

$sth->finish;
$dbh->disconnect();

работает, как надо.

[koliama]

vladsu

?? а у меня нет....