ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vlad                                 2:5020/400     07 Jun 2002  11:35:46
 To : Eugene Grosbein
 Subject : Re: fetchrow
 -------------------------------------------------------------------------------- 
 

 Hello Eugene,
 
 Friday, June 7, 2002, 12:49:31 PM, you wrote:
 
 EG> Привет!
 EG> Как избавиться от 'Use of uninitialized...' в таком случае?
 
 EG> #!/usr/bin/perl -w
 
 EG> use strict;
 EG> use DBI;
 
 EG> # connect, prepare, execute (с placeholders) - везде есть контроль ошибок
 EG> # запрос типа select
 EG> ...
 
 EG> foreach $user (keys %users) {
 EG>  $sth->execute($use) or die;    # тут может быть 0 или 1 строка
 EG>  @status=$sth->fetchrow_array;
 EG>  if(defined(@status) && defined($status[0]) { # тут регулярно 
 EG>                                               # возникает warning (когда
 EG>                                               # нет строк) - почему?
 
 Во-первых, круглую скобку пропустил в блоке if. А во-вторых, зачем
 проверять $status[0], если у тебя уже получается что массив есть
 (пусть даже из одного элемента состоящий). В том случае, когда ничего
 не вернулось, ты все равно пытаешься получить первый элемент, вот и
 ругается правильно компилятор.
 
 EG>    # работа с $status[0]
 EG>  }
 EG> }
 
 EG> Eugene
 -- 
 Best regards,
 VLAD                          
 mailto:vlad@niko.kiev.ua
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5
  * Origin: NIKO (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор