ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     07 Jun 2002  12:15:47
 To : Eugene Grosbein
 Subject : Re: fetchrow
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Eugene Grosbein.
 
 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>                 # нет строк) - почему?
 
 Потому что не бывает defined(array). Он если объявлен, то всегда имеет
 определенное значение. Hапример, пустое. Бывает просто if(array). А еще скобки
 у условия if надо закрывать.
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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