Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > перевести скрипт с пхп на перл

Автор: berlonus 29.8.2006, 11:22

$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>";

=-=========
кто т может догадался че он вытягивает )) памагиите на перл цги перевестиии

Автор: Lunarium 29.8.2006, 11:40

Все очень просто 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 - имя топика.

Автор: berlonus 29.8.2006, 13:04

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

Добавлено @ 13:06
я имел виду догадался что скрипт относится к пхпББ форуму ) а не самому механизму и таблицам)

Автор: berlonus 30.8.2006, 15:42

че реально никто не напишет мне (( ну памагииите smile

Автор: djkostya 31.8.2006, 10:43

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

<?
phpinfo;
?>

И то по моему с ошибками написал

Автор: sharq 31.8.2006, 13:36

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