доброй ночи всем =)
подскажите пожалуйста, что не так.
пример скрипта взял из книжки.
#! /usr/bin/perl -w
use strict;
use DBI;
use CGI qw(:standard);
my ($dbh, $sth, $count);
$dbh = DBI->connect ("DBI:mysql:****;database=****", "****", "****", {PrintError=>0, RaiseError=>1});
$sth = $dbh -> prepare( "SELECT name, wins, losses FROM teams");
$sth -> execute();
print header(), start_html("team data");
$count = 0;
while (my @val = $sth->fetchrow_array())
{
print p (sprintf("%s, %d, %d\n", $val[0], $val[1], $val[2]));
++$count;
}
print p( "$count "), end_html();
$sth -> finish();
$dbh -> disconnect();
exit(0);
если через ssh запускать то html код генерирует правильно.
Content-Type: text/html; charset=ISO-8859-1
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>team data</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<p>название = Fargo, победы = 36, поражения =16
</p><p>название = Winnipeg, победы = 24, поражения =26
</p><p>название = Minot, победы = 19, поражения =23
</p><p>название = Warren, победы = 16, поражения =30
</p><p>всего 4 строки</p>
</body>
</html>
а вот если попытаться запустить через "веб" ( типа
http://mysyte.com/cgi-bin/***.pl)
выдает ошибку
The server encountered an internal error or misconfiguration and was unable to complete your request.
подскажите пожалуйста...
P.S. права у файла 777