Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> перевести скрипт с пхп на перл, пару строчеек) памагитее 
:(
    Опции темы
berlonus
Дата 29.8.2006, 11:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 29.8.2006

Репутация: нет
Всего: нет



$query = "select distinct t.topic_id, t.topic_title 
from forum__posts p, forum_topics t 
where p.topic_id = t.topic_id 
order by p.post_time desc 
limit 10"; 
$result = mysql_query($query); 

print "<ul>"; 
while ($row = mysql_fetch_assoc($result)) { 
$topic_id = $row['topic_id']; 
$topic_title = $row['topic_title']; 
print "<li><a href=\"/forum/viewtopic.php?t=$topic_id\">$topic_title</a></li>"; 
} 
print "</ul>"; 


=-=========
кто т может догадался че он вытягивает )) памагиите на перл цги перевестиии
PM MAIL   Вверх
Lunarium
Дата 29.8.2006, 11:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 29.8.2006

Репутация: нет
Всего: нет



Все очень просто smile

Он вытаскивает из базы topic_id и topic_title из таблиц forum__posts, forum_topics, а дальше присваивает  к переменным $topic_id и $topic_title полученные значения из базы. Потом печатает список из  ссылок, вид которых такой:
Ссылка             имя
/forum/viewtopic.php?t=4         Topic_name
/forum/viewtopic.php?t=10       Topic_name5
......
/forum/viewtopic.php?t=n         TOPNAME
где n - ID топика, TOPNAME - имя топика.
PM MAIL   Вверх
berlonus
Дата 29.8.2006, 13:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 29.8.2006

Репутация: нет
Всего: нет



аа ну так я знаюю )) я синтакис перла не згаю ) поэтому и прошу

Добавлено @ 13:06 
я имел виду догадался что скрипт относится к пхпББ форуму ) а не самому механизму и таблицам)
PM MAIL   Вверх
berlonus
Дата 30.8.2006, 15:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 29.8.2006

Репутация: нет
Всего: нет



че реально никто не напишет мне (( ну памагииите smile  smile 
PM MAIL   Вверх
djkostya
Дата 31.8.2006, 10:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 16.5.2006
Где: Москва

Репутация: 1
Всего: 2



Извени, но мои познания в PHP заканчиваються

<?
phpinfo;
?>

И то по моему с ошибками написал
PM MAIL WWW ICQ   Вверх
sharq
Дата 31.8.2006, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Perl Liker
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 2
Всего: 28



berlonus, 

Код

#!/usr/bin/perl

use strict;
use DBI;

my $dbh = DBI->connect(...);

my $query =
    "select distinct t.topic_id, t.topic_title 
    from forum__posts p, forum_topics t 
    where p.topic_id = t.topic_id 
    order by p.post_time desc 
    limit 10";
my $sth = $dbh->prepare($query);
$sth->execute;

print "Content-type: text/html\n\n";

...

print "<ul>"; 
while (my $row = $sth->fetchrow_hashref) {
    my $topic_id = $row->{'topic_id'}; 
    my $topic_title = $row->{'topic_title'}; 
    print "<li><a href=\"/forum/viewtopic.php?t=$topic_id\">$topic_title</a></li>"; 
}
print "</ul>"; 

...



perldoc DBI

Это в слово в слово переписанно с пхп, но данный кусок кода можно переписать в раза 2 короче, на то это Perl  smile 

 smile 

Это сообщение отредактировал(а) sharq - 31.8.2006, 13:37


--------------------
[color=gray]There's More Than One Way To Do It[/color]
PM MAIL WWW ICQ Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »


 




[ Время генерации скрипта: 0.0443 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.