Не могу передать данные из htm-страницы Perl-скрипту.
Не могу передать имя базы данных и имя пользователя скрипту написанному
на Perl. Помогите разобраться!
Файл example.htm:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>A simple form example</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1251">
<BODY>
<FORM action="/cgi-bin/DATABASE.PL" method=post>
Input database name:
<INPUT type = text name = name_database>
Input user name:
<INPUT type = text name = name_user >
<INPUT type=submit value=Send>
</FORM>
</BODY></HTML>
файл скрипта database.pl
#!/perl/bin/perl
use DBI;
use CGI;
print "Content-Type: text/html; charset=windows-1251\n\n";
CGI::ReadParse;
$database = $in{'database_name'};
$user = $in{'user_name'};
$dbh = DBI->connect("DBI:mysql:$database", "$user") or die "Error connecting to database";
my @tables = $dbh->tables();
$count = $#tables;
for ($i=0;$i<=$count;$i++){
print(" ".$tables[$i]."\n");
}
$dbh->disconnect();
В результате выполнения должен вывестись список таблиц в указанной базе данных,
а выводится пустая страница.
Если в connect() имя базы и пользователя указать явно, то все проходит нормально.
Используется ActivePerl 5.8
Заранее благодарен за ответы.
на Perl. Помогите разобраться!
Файл example.htm:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>A simple form example</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1251">
<BODY>
<FORM action="/cgi-bin/DATABASE.PL" method=post>
Input database name:
<INPUT type = text name = name_database>
Input user name:
<INPUT type = text name = name_user >
<INPUT type=submit value=Send>
</FORM>
</BODY></HTML>
файл скрипта database.pl
#!/perl/bin/perl
use DBI;
use CGI;
print "Content-Type: text/html; charset=windows-1251\n\n";
CGI::ReadParse;
$database = $in{'database_name'};
$user = $in{'user_name'};
$dbh = DBI->connect("DBI:mysql:$database", "$user") or die "Error connecting to database";
my @tables = $dbh->tables();
$count = $#tables;
for ($i=0;$i<=$count;$i++){
print(" ".$tables[$i]."\n");
}
$dbh->disconnect();
В результате выполнения должен вывестись список таблиц в указанной базе данных,
а выводится пустая страница.
Если в connect() имя базы и пользователя указать явно, то все проходит нормально.
Используется ActivePerl 5.8
Заранее благодарен за ответы.
Спасибо всем. Разобрался!
Внимательность и еще раз внимательность.
Внимательность и еще раз внимательность.