forum.opennet.ru

Составление сообщения

Исходное сообщение

"Массив значений при выборке из базы"
Отправлено SubGun, 09-Июл-09 10:37

Типа такого?
1. for ($i = 1; $i <= 254; $i++) {
2.     for ($j = 0; $j <= 1; $j++) {
3. my $summary = 0;
4. my $ipaddr = "192.168.13$j.$i";
5. my $dbh = DBI->connect($db_host,$db_user,$db_pass);
6. my $sth = $dbh->prepare(qq{SELECT bytes,time FROM $tbl1 WHERE ip='$ipaddr'});
7. $sth->execute();
8. while (my ($squid_bytes, $squid_time) = $sth->fetchrow_array()) {
9. print "$ipaddr - $squid_bytes - $squid_time\n";
10. $summary = $summary + $squid_bytes;
11.                                                                 }
12. $sth->finish();
13. $dbh->disconnect();
14. print "For IP $ipaddr summary bytes is $summary";
15.                                }
16.                                }

Все равно неверно работает. Честно говоря, в такие момент меня бесит этот убогий perl.
9-я строка отрабатывает отлично, 10-я только в первый раз работает, а в остальное время выдает нулевое значение. 14-я строка, вместо того, чтобы отрабатывать после каждого IP, выводит значение лишь один раз(зато неоднократно), в конце программы. Хрень какая-то.

Исходное сообщение
"Массив значений при выборке из базы" Отправлено SubGun, 09-Июл-09 10:37
Типа такого? 1. for ($i = 1; $i <= 254; $i++) { 2. for ($j = 0; $j <= 1; $j++) { 3. my $summary = 0; 4. my $ipaddr = "192.168.13$j.$i"; 5. my $dbh = DBI->connect($db_host,$db_user,$db_pass); 6. my $sth = $dbh->prepare(qq{SELECT bytes,time FROM $tbl1 WHERE ip='$ipaddr'}); 7. $sth->execute(); 8. while (my ($squid_bytes, $squid_time) = $sth->fetchrow_array()) { 9. print "$ipaddr - $squid_bytes - $squid_time\n"; 10. $summary = $summary + $squid_bytes; 11. } 12. $sth->finish(); 13. $dbh->disconnect(); 14. print "For IP $ipaddr summary bytes is $summary"; 15. } 16. } Все равно неверно работает. Честно говоря, в такие момент меня бесит этот убогий perl. 9-я строка отрабатывает отлично, 10-я только в первый раз работает, а в остальное время выдает нулевое значение. 14-я строка, вместо того, чтобы отрабатывать после каждого IP, выводит значение лишь один раз(зато неоднократно), в конце программы. Хрень какая-то.

Ваше сообщение

Имя*:

EMail:

Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email).
Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.

Заголовок*:

Сообщение*:

> Типа такого?
> [code]1. for ($i = 1; $i <= 254; $i++) { 
> 2.     for ($j = 0; $j <= 1; 
> $j++) { 
> 3. my $summary = 0; 
> 4. my $ipaddr = "192.168.13$j.$i"; 
> 5. my $dbh = DBI->connect($db_host,$db_user,$db_pass); 
> 6. my $sth = $dbh->prepare(qq{SELECT bytes,time FROM $tbl1 WHERE ip='$ipaddr'}); 
> 7. $sth->execute(); 
> 8. while (my ($squid_bytes, $squid_time) = $sth->fetchrow_array()) { 
> 9. print "$ipaddr - $squid_bytes - $squid_time\n"; 
> 10. $summary = $summary + $squid_bytes; 
> 11.            
>            
>            
>            
>            
>          } 
> 12. $sth->finish(); 
> 13. $dbh->disconnect(); 
> 14. print "For IP $ipaddr summary bytes is $summary"; 
> 15.            
>            
>          } 
> 16.            
>            
>          }[/code] 
> Все равно неверно работает. Честно говоря, в такие момент меня бесит этот 
> убогий perl.
> 9-я строка отрабатывает отлично, 10-я только в первый раз работает, а в 
> остальное время выдает нулевое значение. 14-я строка, вместо того, чтобы отрабатывать 
> после каждого IP, выводит значение лишь один раз(зато неоднократно), в конце 
> программы. Хрень какая-то.

При общении не допускается: неуважительное отношение к собеседнику, хамство, унизительное обращение, ненормативная лексика, переход на личности, агрессивное поведение, обесценивание собеседника, провоцирование флейма голословными и заведомо ложными заявлениями. Не отвечайте на сообщения, явно нарушающие правила - удаляются не только сами нарушения, но и все ответы на них. Лог модерирования.

Партнёры:

Хостинг:

Закладки на сайте
Проследить за страницей

Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру