|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Pavel Ammosov 2:5020/52 15 Jun 2001 15:35:17 To : Alexander Bolotnov Subject : Re: DBI:mysql -------------------------------------------------------------------------------- AB>Pavel, AB> 14 Jun 01, Pavel Ammosov -> Alexander Bolotnov: AB>>> my $dbh = DBI->connect('DBI:mysql:cltest', undef,undef AB>>> {PrintError=>1}) or die $!; >> тут перед {PrintError=>1} надо запятую. AB>ага. сделал. только не отдает ошибки все равно никуда. AB>я точно что-то делаю не так. AB>perldoc perlvar читал. AB>может, примерчик с ошибочкой и тем, как она летит в лог-файл? #!/usr/bin/perl -w use strict; use DBI; open LOG, ">log.log" or die "log.log: $!"; $SIG{__WARN__} = sub { print STDERR $_[0] . "\n"; print LOG localtime() . " " . $_[0] . "\n"; }; my $dbh = DBI->connect("dbi:mysql:apavel", xxx, xxx, {PrintError=>1}); my $c = $dbh->prepare('SELECT id, descr FROM troubles'); $c->execute(); my ($trouble_id, $descr) = $c->fetchrow_array; print "trouble_id: $trouble_id, descr: $descr\n"; # $c не закрыт и там еще строк 10 осталось. $dbh->disconnect; и в log.log: Fri Jun 15 14:23:11 2001 DBI::db=HASH(0x817f9c8)->disconnect invalidates 1 active statement handle (either destroy statement handles or call finish on them before disconnecting) at xx.pl line 19. -- Pavel Ammosov O \ apavel@aha.ru __ ) http://isabase.philol.msu.ru/~apavel/ ) wget -O - isabase.philol.msu.ru/~apavel/key.asc|pgp -fka O / --- FIDOGATE 4.4.0-snp10 * Origin: Zenon N.S.P. news server (2:5020/52.0) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/28459f8eaf843.html, оценка из 5, голосов 10
|