Forum Webscript.Ru

Программирование => Perl => Тема начата: Error202 от 13 Декабря 2006, 18:17:16

Название: PHP 2 Perl
Отправлено: Error202 от 13 Декабря 2006, 18:17:16

Господа!
Что-то у меня не клеится...
Как это будет выглядеть в Perl:




function sql_fetch_all($query)
 {
    $result = mysql_query($query);
    if($mysql_err = mysql_errno())
          {
print $query.\'
\'.mysql_error();
          }
    else
          {
                while($row=mysql_fetch_array($result))
                        {
                          $data[]=$row;
                        }
          }
    return $data;
}

Название: PHP 2 Perl
Отправлено: Green Kakadu от 19 Декабря 2006, 00:30:22

while (my  $row_ref = $sth->fetchrow_arrayref() )
{
...
}

Название: PHP 2 Perl
Отправлено: xames от 21 Декабря 2006, 20:48:31

$array_ref = $dbh->selectall_arrayref($query);


$array_ref -  ссылка на массив содержащий сылки на масивы строк в возвращаемом результате