Автор Тема: PHP 2 Perl  (Прочитано 3954 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Error202

  • Бесстрашный
  • Ветеран
  • *****
  • Сообщений: 540
  • +1/-0
  • 2
    • Просмотр профиля
    • http://www.tender-plus.ru
PHP 2 Perl
« : 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;
}
Космическая игрушка

Оффлайн Green Kakadu

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 2757
  • +1/-0
  • 0
    • Просмотр профиля
    • http://gnezdo.webscript.ru
PHP 2 Perl
« Ответ #1 : 19 Декабря 2006, 00:30:22 »
while (my  $row_ref = $sth->fetchrow_arrayref() )
{
...
}
 в исканиях.

Оффлайн xames

  • Завсегдатай
  • Пользователь
  • **
  • Сообщений: 62
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
PHP 2 Perl
« Ответ #2 : 21 Декабря 2006, 20:48:31 »
$array_ref = $dbh->selectall_arrayref($query);


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

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28