Perl модули и FreeBSD

[DarKSideBluz]

Наверное всё же немного не в тему данное творчество, но такая проблема пока встречалась только под FreeBSD.

FreeBSD 7.2 ставлю DBI и DBD::mysql, беру свой скрит и вылетает такая ошибка:

Can't locate object method "fetchrow_array" via package "DBI:b" at mysql.pl line 17.

Ставил из портов, на всякий пожарный случай обновлял порты и перестанавливал заново, ставил из пакетов... одно и тоже, не подскажете как можно это побороть ?

[diesel]

Наверное всё же немного не в тему данное творчество, но такая проблема пока встречалась только под FreeBSD.

FreeBSD 7.2 ставлю DBI и DBD::mysql, беру свой скрит и вылетает такая ошибка:

Can't locate object method "fetchrow_array" via package "DBI:b" at mysql.pl line 17.

Ставил из портов, на всякий пожарный случай обновлял порты и перестанавливал заново, ставил из пакетов... одно и тоже, не подскажете как можно это побороть ?

а что в скрипте?

[DarKSideBluz]

В Linux тот же код работает нормально.

#!/usr/bin/perl -w

use DBI;


$db_user = "root";
$db_password = "12345";
@row = ();

$dsn = 'DBI:mysql:test:localhost';
$sth = DBI -> connect($dsn, $db_user , $db_password);

$query = "select * from ext";

$sth -> do($query);

while(@row = $sth->fetchrow_array()) {

print qw($row[0]\t$row[1]\t$row[2]\n);

}

$sth->finish();

[arachnid]

а версии мускуля одинаковые?

[DarKSideBluz]

Я даже хуже скажу, одна и таже база данных, и один и тот же сервак.

[lastpriot]

Фря 8.1, порты за 25 августа
ради любопытства разобрался, и пришел к такому коду, который работает ))

Код: Выделить всё

#!/usr/bin/perl -w

use DBI ();

$db_user = "test";
$db_password = "test";

$dsn = 'DBI:mysql:test:localhost';
$dbh = DBI -> connect($dsn, $db_user , $db_password) or die "Can't connect to MySQL database: $DBI::errstr\n";

$sth = $dbh->prepare( "SELECT * FROM terra" )
      or die "Can't prepare SQL statement: $DBI::errstr\n";

$sth->execute
      or die "Can't execute SQL statement: $DBI::errstr\n";

@row = ();
  while ( @row = $sth->fetchrow_array() ) {
      print ("$row[0]\t$row[1]\t$row[2]\n");
  }

$dbh->disconnect

[afiskon]

Ставьте все модули из портов. Только если их там нет или с ними какой-то косяк - из cpan. У меня крайне редко возникали какие-либо проблемы с перлом под фряхой.

[lastpriot]

ставить во фре софт в обход ports/packages неоправданный риск.

[arachnid]

господа afiskon и lastpriot - пожалуйста, будьте внимательны при комментариях - иначе вы бы смогли прочесть в первом сообщении, что все ставилось с портов и переставлялось с пакеджей.

[lastpriot]

Уважаемый arachnid, в первом посте дал решение проблемы (пример рабочего кода)
а в о стальном согласен, оффтоп)))