InstantForum.NET v4.1.4Релибhttp://www.relib.com/forums/robot@relib.comWed, 15 Oct 2008 00:52:18 GMT20http://www.relib.com/forums/Topic895543-18-1.aspxНу connect у тебя не сработал, значит.</P><P>Сделай так</P><P>$dbh = DBI-&gt;connect( $dbi, $modules::Settings::c{mysql}{user}, $modules::Settings::c{mysql}{pass} ) || print "Connection error: " . $DBI::errstr . "";</P><P>и посмотри что было не так.<BR>Thu, 08 Jun 2006 18:58:16 GMTvlgshhttp://www.relib.com/forums/Topic895543-18-1.aspxВсем привет!Не хочет работать перловый скрипт, а сам я в перл полный 0.Вот такой модуль:[code]package modules::DBfunctions;use Exporter;our @ISA=qw(Exporter);our @EXPORT=qw($dbh connectDB get_table_hash get_erased_msg_text);our $VERSION=1.9;use strict;use DBI;use modules::Settings;use vars qw($dbh);sub connectDB { my $dbi = "dbi:mysql:$modules::Settings::c{mysql}{database}:$modules::Settings::c{mysql}{host}"; $dbh = DBI->connect( $dbi, $modules::Settings::c{mysql}{user}, $modules::Settings::c{mysql}{pass} ); $dbh->do("SET NAMES 'cp1251'"); return $dbh;[/code] вот в $dbh->do("SET NAMES 'cp1251'"); этой строчке не работает.выдаёт вот такую ошибку:Software error:Can't call method "do" on an undefined value at modules/DBfunctions.pm line 19.Compilation failed in require at 4site.pl line 13.BEGIN failed--compilation aborted at 4site.pl line 13.система Linux c01n01 2.6.14.2Wed, 19 Apr 2006 18:00:00 GMTJasZ