#!/usr/bin/perl -w
use strict;
use vars qw/$query $dbh/;
&main();
sub main {
use CGI;
$query = CGI->new();
&connect();
print $query->header(-type=>'text/html');
print $query->start_html(-title=>'Some title');
print $query->table({width=>'100%', border=>1}, @{ &select() });
print $query->end_html();
&clean_up()
}
sub select {
my $sth = $dbh->prepare(qq/select * from records/);
die "Can't prepare query" if (!$sth);
die "Can't execute query" if (!$sth->execute());
my $res = [];
while (my $aref = $sth->fetch) {
my $tmp = [];
for (my $i = 0; $i < scalar @$aref; $i++) {
push @$tmp, $query->td($aref->[$i]);
}
push @$res, $query->Tr(@$tmp);
}
return $res;
}
sub conect {
use DBI;
my $db_database = 'databaseName';
my $db_ip = 'Somme IP';
my $db_user = 'USeR';
my $db_password = 'Passwd';
$dbh ||= DBI->connect("DBI:mysql:$db_database$db_ip",$db_user,$db_password);
}
sub clean_up{
$dbh->disconnect;
exit(0);
}
вывод таблицы
есть некий скрипт в perle, обращающийся к некой базе mysql. Как ни пытался в браузере выдает весь результат запроса в одну строку или столбец. подскажите как сделать так, чтобы выдавало запрос в виде таблицы.
Значит всетаки не хотим разбиратся и думать ?
Ай-яй-яй :)
Инфа для размышления: sql и возращает тебе таблицу просто ты не можеш(точнее не хочеш) её визаулизовать
Ай-яй-яй :)
Инфа для размышления: sql и возращает тебе таблицу просто ты не можеш(точнее не хочеш) её визаулизовать
Цитата:
Originally posted by Alone
Значит всетаки не хотим разбиратся и думать ?
Ай-яй-яй :)
Инфа для размышления: sql и возращает тебе таблицу просто ты не можеш(точнее не хочеш) её визаулизовать
Значит всетаки не хотим разбиратся и думать ?
Ай-яй-яй :)
Инфа для размышления: sql и возращает тебе таблицу просто ты не можеш(точнее не хочеш) её визаулизовать
я не не хочу, я не знаю как, второй раз вижу эту дрянь, а диплом написать как-то надо
Цитата:
Originally posted by Dema
я не не хочу, я не знаю как, второй раз вижу эту дрянь, а диплом написать как-то надо
я не не хочу, я не знаю как, второй раз вижу эту дрянь, а диплом написать как-то надо
1. Сформировать строку и добавить символ перевода строки
1.1. Заключить результат в тег преформатирования
или
2. Организовать хтмл таблицу и вывести ее.
;)=
Цитата:
Originally posted by ReDrum
1. Сформировать строку и добавить символ перевода строки
1.1. Заключить результат в тег преформатирования
или
2. Организовать хтмл таблицу и вывести ее.
;)=
1. Сформировать строку и добавить символ перевода строки
1.1. Заключить результат в тег преформатирования
или
2. Организовать хтмл таблицу и вывести ее.
;)=
а как не подскажешь?:sad:
Вот так:
<table>
<tr><td>результат1</td><td>результат2</td></tr>
<tr><td>результат3</td><td>результат4</td></tr>
</table>
<table>
<tr><td>результат1</td><td>результат2</td></tr>
<tr><td>результат3</td><td>результат4</td></tr>
</table>
если ящик пивка предложишь то тебе здесь несколько вариантов накатают.;)=
Короче давай свой код.
Короче давай свой код.
Цитата:
Originally posted by ReDrum
если ящик пивка предложишь то тебе здесь несколько вариантов накатают.;)=
Короче давай свой код.
если ящик пивка предложишь то тебе здесь несколько вариантов накатают.;)=
Короче давай свой код.
вот код:
#!/usr/bin/perl
use CGI;
print "Content-Type:text/html\n\n";
print "<html><body><h2>test</h2><hr>\n";
use dbi;
use Mysql;
$dbh = Mysql->connect($localhost, $ddd, $root);
$dbh->selectdb("ddd");
$sth = $dbh->query("select * from records");
@arr = $sth->FetchRow;
# $count = $#arr; # Figure out how many elements.
$count = scalar(@arr);
print "
" .$count;
for ($i=0;$i<=$count;$i++) { # Print out the table names.
print "<tr>";
@columns = split (/divider/,$arr);
$num_of_columns = $i+scalar(@columns);
for ($j=0; $j<=25; $j++) {
print "<td>".$columns[$j]."</td>";
}
print "</tr>";
}
print "</html></body>\n";
советов выслушал много, но :( ничего не работает я уже вторую неделю долблюсь и все на одном месте. это пример одного из кодов по идее должен работать, но не работает где руки кривые не подскажете?