Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Perl+MySQL+HTML

374
18 октября 2002 года
Pennywise
158 / / 20.05.2000
Имею скрипт (output.pl), который осуществляет вывод данных из БД(MySQL).....
нужно примерно следущее:
выводить данные с помощью линков типа:
<a href......>A</a>

Выводит все поля таблицы, в которой имя начинаеться на букву..A....наглядный пример тут: .......
http://forum.codenet.ru/memberlist.php?s=

Вся эта кухня должна работать только с одним скриптом (output.pl)
300
18 октября 2002 года
ReDrum
689 / / 20.04.2000
Цитата:
Originally posted by Pennywise
Имею скрипт (output.pl), который осуществляет вывод данных из БД(MySQL).....
нужно примерно следущее:
выводить данные с помощью линков типа:
<a href......>A</a>

Выводит все поля таблицы, в которой имя начинаеться на букву..A....наглядный пример тут: .......
http://forum.codenet.ru/memberlist.php?s=

Вся эта кухня должна работать только с одним скриптом (output.pl)



perldoc CGI
perldoc DBI

250
19 октября 2002 года
Joker
1.4K / / 20.02.2000
SELECT ntext FROM $table WHERE ntext=a*

Моги и ошибаться как то так.. (лень проверить)
374
20 октября 2002 года
Pennywise
158 / / 20.05.2000
Цитата:
Originally posted by Joker
SELECT ntext FROM $table WHERE ntext=a*

Моги и ошибаться как то так.. (лень проверить)


в MySQL я делаю это так:
SELECT FROM $table WHERE name LIKE 'A%'

Но как заставить выводить ЭТО при нажатии на линк ?.........

2ReDrum....спасибо конечно.......но я вообще-то с perldoc'а и начал свои поиски.......может ты там увидел то что я не заметил ? ты поделись если не трудно...:)

4
20 октября 2002 года
mike
3.7K / / 01.10.2002
#!/usr/bin/perl

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>";
300
21 октября 2002 года
ReDrum
689 / / 20.04.2000
Цитата:
Originally posted by Pennywise

в 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->{$_}."
";
}
}

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог