|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Pavel Ammosov 2:5020/52 14 Jun 2001 15:19:54 To : Alexander Bolotnov Subject : Re: DBI:mysql -------------------------------------------------------------------------------- AB>Pavel, AB>что-то я точно делаю не так, наверное... вот AB>кусочек кода и то, что возвращается при perl AB>-cw prog.pl AB>#!c:/perl/bin/perl.exe AB>require "add_product_form_subs.pm"; AB>use strict; AB>print "content-type: text/html\n\n"; AB>open LOG, ">> !errors.log" or die $!; AB>local $SIG{__WARN__} = sub { AB>print STDERR join('',@_); AB>print LOG join('',@_);} тут надо ; после }: local $SIG{__WARN__} = sub { print STDERR join('',@_); print LOG join('',@_); }; AB>use DBI; AB>my $dbh = DBI->connect('DBI:mysql:cltest', undef,undef {PrintError=>1}) or AB>die $!; тут перед {PrintError=>1} надо запятую. -- 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/28171f397b0db.html, оценка из 5, голосов 10
|