Мой скрипт выглядит так:
#!/usr/bin/perl
use CGI;
print "Content-Type:text/html\\n\\n";
print "
test
\\n";
use dbi;
use Mysql;
$dbh = Mysql->connect($localhost, $ddd, $root);
$dbh->selectdb("ddd");
$sth = $dbh->query("select film from records");
@arr = $sth->FetchRow;
# $count = $#arr; # Figure out how many elements.
$count = $#arr;
print "" .$arr;
print "
" .$count;
for ($i=0;$i<=$count;$i++) { # Print out the table names.
print "
";
# здесь надо сделать разбивку каждой строки на поля
# и в цикле их выводить
@columns = split (/~/,$arr);
$num_of_columns =scalar(@columns);
for ($j=0; $j<= $num_of_columns; $j++) {
print "".$columns[$j]." | ";
}
print "
";
}
print "\\n";
выдает только первую строку help me, please