ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Chaus Konstantin                     2:5020/400     09 Aug 2000  10:09:59
 To : All
 Subject : DBI using problems
 -------------------------------------------------------------------------------- 
 

 Hi All!
 
 Господа! Hе могли бы вы подсказать в чем ошибка кода (см. ниже). При попытке
 print'ом вывести что-либо на экран ничего не происходит, HО если
 закоментировать подключение и работу с БД, то print работает нормально.
 ----
 ...
 $dbh = DBI->connect('DBI:oracle:turism:foo.bar.net,
                     'login', 'password',
                     { RaiseError => 1, AutoCommit => 1 }) || print "Error:
 $DBI::errstr<br>";
 
 $dbh->do("CREATE TABLE cities (city CHAR(20))") || print "Error:
 
 $DBI::errstr<br>";
 
 $sql_fmt = "INSERT INTO cities VALUES( %s )";
 open (file, 'cities_base') || print "Error $!";
   @data=<file>;
 close (file);
 #####
 foreach $element (@data){
     print "$element<br>";
 }
 #####
 foreach $element (@data){
     $sql = sprintf($sql_fmt, $element->city);
     $dbh->do($sql) || print "Error: $DBI::errstr<br>";;
 }
 ....
 
 $dbh->disconnect;
 
 -------------
 заранее спасибо.
 --- ifmail v.2.15dev5
  * Origin: IAC Samara-Internet, Ltd. (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор