ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Eugene Grosbein                      2:5006/1       07 Jun 2002  14:49:31
 To : All
 Subject : fetchrow
 -------------------------------------------------------------------------------- 
 

 Как избавиться от 'Use of uninitialized...' в таком случае?
 
 #!/usr/bin/perl -w
 
 use strict;
 use DBI;
 
 # connect, prepare, execute (с placeholders) - везде есть контроль ошибок
 # запрос типа select
 ...
 
 foreach $user (keys %users) {
 
  $sth->execute($use) or die;  # тут может быть 0 или 1 строка
 
  @status=$sth->fetchrow_array;
  if(defined(@status) && defined($status[0]) { # тут регулярно 
                 # возникает warning (когда
                 # нет строк) - почему?
    # работа с $status[0]
  }
 }
 
 Eugene
 -- 
 "Люди забыли эту истину," - сказал Лис, - "но ты не забывай"
 --- slrn/0.9.7.4 (FreeBSD)
  * Origin: Svyaz Service JSC (2:5006/1@fidonet)
 
 

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