InstantForum.NET v4.1.4Релибhttp://www.relib.com/forums/robot@relib.comFri, 05 Sep 2008 17:39:24 GMT20http://www.relib.com/forums/Topic884696-18-1.aspxВот кусочек кода из моего скрипта рассылки, который работает с базой данных.[code] #!/usr/bin/perl -w# Coded by PoizOn poizon.net.ru# MT-Subscriberuse strict;use DBI;################################################ Ïàðàìåòðû ïîäêëþ÷åíèÿ ê ÁÄ ############my $user="root";my $passwd="";my $database="test";################################################ Ïîäêëþ÷àåìñÿ ê ÁÄ #####################my $dbh=DBI->connect("DBI:mysql:host=localhost;database=$database",$user,$passwd, { RaiseError =>1});################################################ Îïðåäåëÿåì òåêóùóþ äàòó ###############my $time=time()-86400; # 0 1 2 3 4 5 6 7 8my (undef,undef,undef,$mday,$mon,$year,undef) = localtime($time); $year+=1900; $mon+=1; $mon=length($mon)>1 ? $mon : "0$mon"; $mday=length($mday)>1 ? $mday : "0$mday";################################################ Ôîðìèðóåì è îòïðàâëÿåì çàïðîñ #########my $sql=qq(SELECT entry_id,entry_title,entry_text,entry_created_on FROM mt_entry WHERE entry_created_on LIKE '$year-$mon-$mday%');my $sth=$dbh->prepare($sql); $sth->execute();while($data=$sth->fetchrow_hashref()) { $id=$data->{'entry_id'}; $entry{$id}=$data;} $sth->finish(); ############################################### Ôîðìèðóåì âòîðîé çàïðîñ äëÿ $url ###### $sql=qq(SELECT fileinfo_url FROM mt_fileinfo WHERE fileinfo_entry_id= ?); $sth=$dbh->prepare($sql); foreach $id(keys %entry) { $sth->execute($id); $data=$sth->fetchrow_hashref; $entry{$id}->{'url'}=$myurl . $data->{'fileinfo_url'}; }$sth->finish();################################################ Ôîðìèðóåì ôàéë ñ ðàññûëêîé ############ $sql=qq(SELECT email,id FROM mt_subscriberz); $sth=$dbh->prepare($sql); $sth->execute(); while($data=$sth->fetchrow_hashref()) { $maillist{$data->{'email'}}=$data->{'id'}; } $sth->finish();[/code] Thu, 23 Mar 2006 15:28:00 GMTPoizOnhttp://www.relib.com/forums/Topic884696-18-1.aspxЯ использую Perl по Windows, тоесть ActionPerl 5.8 :)Запустил:ppm>Прописал:ppm> install DBIустановило, далее: ppm> install DBDопять таки установило.[bold]Теперь вопрос :)[/bold] Хочу проверить как работают эти базы данных, но не один скрипт с базой данных у меня не работает и выдаёт ошибку 500 :( Вывод: Или база данных не настроена и тогда возникает вопрос:"Как её настроить?", или все скрипты которые я проверял были нерабочими:( Немогли бы вы выложить небольной скрипт, который использует базы данных для 100% уже проверки, что именно не работает:)Заранее Большое Спасибо всем за помощь:) Sun, 13 Nov 2005 19:30:00 GMTVizlim