Perl+MySQL+HTML
нужно примерно следущее:
выводить данные с помощью линков типа:
<a href......>A</a>
Выводит все поля таблицы, в которой имя начинаеться на букву..A....наглядный пример тут: .......
http://forum.codenet.ru/memberlist.php?s=
Вся эта кухня должна работать только с одним скриптом (output.pl)
Имею скрипт (output.pl), который осуществляет вывод данных из БД(MySQL).....
нужно примерно следущее:
выводить данные с помощью линков типа:
<a href......>A</a>
Выводит все поля таблицы, в которой имя начинаеться на букву..A....наглядный пример тут: .......
http://forum.codenet.ru/memberlist.php?s=
Вся эта кухня должна работать только с одним скриптом (output.pl)
perldoc CGI
perldoc DBI
Моги и ошибаться как то так.. (лень проверить)
SELECT ntext FROM $table WHERE ntext=a*
Моги и ошибаться как то так.. (лень проверить)
в MySQL я делаю это так:
SELECT FROM $table WHERE name LIKE 'A%'
Но как заставить выводить ЭТО при нажатии на линк ?.........
2ReDrum....спасибо конечно.......но я вообще-то с perldoc'а и начал свои поиски.......может ты там увидел то что я не заметил ? ты поделись если не трудно...:)
use Mysql;
$dbh=Mysql->Connect("localhost","aaaaa","bbbbb","cccc");
print "<table>";
$sth=$dbh->Query("SELECT * FROM table");
while (@arr=$sth->FetchRow) {
print "<tr>";
print "<td>".@arr[0]."</td>";
print "<td>".@arr[1]."</td>";
print "<td>".@arr[2]."</td>";
print "<td>".@arr[3]."</td>";
print "</tr>";
}
print "</table>";
в MySQL я делаю это так:
SELECT FROM $table WHERE name LIKE 'A%'
Но как заставить выводить ЭТО при нажатии на линк ?.........
2ReDrum....спасибо конечно.......но я вообще-то с perldoc'а и начал свои поиски.......может ты там увидел то что я не заметил ? ты поделись если не трудно...:)
#!/usr/bin/perl -w
use strict;
use CGI;
use vars qw/$query/;
=head2 keyword.cgi
Пример разбора параметров запроса.
1. Настроить скрипт (путь к перлу + пермешенны)
2. запусть ал http://some.host/keyword.cgi
[QUERY_STING - пустое, следовательно должен паказаться пустая страница]
Прим. Если возник 500 егор то вы пропустили шаг 1.
3. запусть ал http://some.host/keyword.cgi?a=1
4. запусть ал http://some.host/keyword.cgi?a=1&B=2
5. запусть ал http://some.host/keyword.cgi?a=1&B=2&segodnay=ponedelnik
Зафикесировать результаты.
P.S. Доки и еше раз доки.
=cut
&main();
sub main {
$query = CGI->new();
print $query->header(-type=>'text/html');
print $query->start_html();
&process_query();
print $query->end_html();
}
=heada2 process_query()
А вот здесь все и работает.
=cut
sub process_query {
my $vars = $query->Vars;
foreach (keys (%$vars)) {
print "The key ".$_." - value ".$vars->{$_}."
";
}
}