1. Perl / Говнокод #15973

    −149

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    my $query = "select * from client where <...>";
    ...
    $params{'first_name'} = $v_client[6];
    if (defined $v_client[11]) {
         $params{'address1'} = $v_client[11];
    }
    if (defined ($v_client[10])) {
      $params{'zip_code'} = $v_client[10];
    }

    No comments.

    Запостил: bormand, 13 Мая 2014

    Комментарии (5) RSS

    • Array-based OOP?
      Ответить
    • Какой-то php, а не perl получился, где-же весь syntax shugar?
      Ответить
    • Я так понял там еще и fetchrow_arrayref()? Для скорости
      Ответить
    • Я так делаю:
      my $query = "SELECT ...";
      
      my $sth = $dbh->prepare($query);
      # below technic was described in DBI docs
      my %row;
      
      $sth->bind_columns( \( @row{ @{$sth->{'NAME_lc'}} }) );
      $sth->execute();
      
      while ($sth->fetch()) {
         if (defined $row{'my_field'}) {
             ...
         }
      }
      Ответить

    Добавить комментарий