В общем из блока отсылается запрос модулю с данными для поиска, на локалке всё работало, а когда залил на сайт пишет - Sorry, such file doesn't exist...
Еще мне в инструкциях сказали добавить к функции соединения с базой вот это:
#!/usr/local/bin/perl
use DBI;
use strict;
my($host,$login,$password,$base,$drh,$dbh,$rv,$sth );
$base = "****";
$host = "mysql.hosting.vrn.ru";
$login = "****";
$password = "****";
print "Content-type: text/html\n\n<pre>\n";
$drh = DBI->install_driver("mysql");
if (ref $drh ne 'DBI::dr') { die "оЕФ ДТБКЧЕТБ ВБЪЩ"};
ib_conn();
drop_table();
cr_table();
ib_dis();
ib_conn();
ins_table();
sel_table();
ib_dis();
exit();
ib_conn();
drop_table();
ib_dis();
print("</pre>\n");
sub ib_conn {
$dbh= DBI->connect("DBI:mysql:$base:host=$host:port=3306",$login,$password, {PrintError => 0}) ||
die("Can't make a connection to the mysql server.\n The error: $DBI::errstr");
};
sub ib_dis {
$dbh->disconnect();
};
sub cr_table {
$rv = $dbh->do("create table clnames (clnum integer, clname char(8))");
};
sub drop_table {
$rv =$dbh->do("DROP TABLE clnames") || warn"drop: $dbh->errstr\n";
};
sub ins_table {
my($i,$name);
$i = 1;
foreach $name (qw("vasya" "petja" "masha" "valja")) {
$sth = $dbh->prepare("insert into clnames(clnum,clname) values ($i, $name)")||die"dbh->errstr";
$rv = $sth->execute||die"$dbh->errstr";
$sth->finish;
print "INSERT $i $name\n";
$i++;
};
}
sub sel_table {
my($rowref);
$sth = $dbh->prepare("select * from clnames") || die"70 $dbh->errstr\n";
$rv = $sth->execute() || die"80 : $DBI::errstr\n";
while ($rowref = $sth->fetchrow_hashref) {
print "SELECT ".$rowref->{"clnum"}." ".$rowref->{"clname"}."\n";
};
$sth = $dbh->{'mysql_serverinfo'};
print "serverinfo:\n$sth\n";
$sth = $dbh->{'mysql_hostinfo'};
print "hostinfo:\n$sth\n";
$sth = $dbh->{'mysql_stat'};
print "stat:\n$sth\n";
$sth = $dbh->{'mysql_protoinfo'};
print "protoinfo:\n$sth\n";
}
Куда это девать? И может поэтому поиск не работает?
Линейный вид
