- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #391 [1062]
От : Maxim Zubkov 2:5030/889 25 сентября 03, 22:59
Кому : All 26 августа 03, 21:10
Тема : Гмммм.... Чего ему надо?
-------------------------------------------------------------------------------
Hello All!
Имеем простенький скрипт:
=== Cut ===
#!/usr/bin/perl -w
use strict;
use DBI;
my ( $dbh, $sth, $count );
$dbh = DBI->connect ( "DBI:mysql:host=maxstation.spb.net;batabase=testdb",
"testing", "mypass"
{ PrintError => 0, RaiserError => 1 });
$sth = $dbh->prepare ( "select class, name, gabarit FROM bot" );
$sth->execute ();
$count = 0;
while (my @val = $sth->fetchrow_array ())
{
printf "класс: %s, наименование: %s, габариты: %d\n",
$val[0], $val[1], $val[2];
++$count;
}
print "всего в базе $count кораблей/n";
$sth->finish ();
$dbh->disconnect ();
exit (0);
=== Cut ===
Запускаем его получаем:
Can't set DBI::db=HASH(0x8244654)->{RaiserError}: unrecognised attribute or
invalid value at /usr/lib/perl5/site_perl/5.8.0/i386-linux/DBI.pm line 631.
Вопрос: Чего ему надо? :-/
ps. А заодно и ещё вопрос: как удалить установленный модуль?
Maxim aka MoS ( Master of Shadow )
e-mail: zubkovmg@yandex.ru UIN:151791690
... UNIX,-это не система,а образ жизни.:)
--- GoldEd 1.1.4.7.[Linux-2.4.22-ext3(i686)]RLU # 224587
* Origin: Powered by SlackWare-9.0 - http://www.slackware.com (2:5030/889)