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

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

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

Автор: lecharton 7.9.2011, 21:13

Здраствуйте. У меня уже поздно, поэтому соображаю плохо и напишу немного сумбурно.

У меня есть скрипт создающий таблицу и загоняющий в нее инфу. Вот кусок кода создающий таблицу:

Код


HTML
###
if ($my{'c'} ne ''){
    $my_c = "&c=$my{'c'}";
}
print <<HTML; 
<table border="0" class="content3" width="100%" height="" cellspacing="0" cellpadding="0">
<tr><td class=\"content2\">
<table border="0" class="content9" width="100%" height="" cellspacing="0" cellpadding="2">
HTML
while (@array = $data->fetchrow_array){
$rubrika_menu_id = $array[0];
$rubrika_menu_name = $array[1];
if ($my{'r'} == $rubrika_menu_id){
print "<tr><td class=\"content9\" width=\"\" height=\"\"><b>$rubrika_menu_name</b></td></tr> \n";
} else {
print "<tr><td class=\"content9\" width=\"\" height=\"\"><a href=\"/rubrika/?r=$rubrika_menu_id$my_c\">$rubrika_menu_name</a></td></tr> \n";       
}
}
print <<HTML; 
</table>
</td>
</tr>
</table>
HTML
}

Я хочу чтобы в таблице было два столбца одинаковой ширины. Но не могу этого сделать, т.к. столбец у меня расползается вправо. В итоге второй столбик получается узенький.
http://s1.ipicture.ru/uploads/20110907/V8G39u73.bmp
Синяя область на скрине - это как раз первый столбец.
Почему так и как это убрать?

Автор: infarch 8.9.2011, 09:53

Вы извините что лезу с советами, но... не делайте так. Путать скрипт с разметкой - это худшее что можно придумать. Возьмите шаблонизатор (TemplateToolkit например), создавайте шаблоны и передавайте в них данные. А такое жуткое месиво разметки и скрипта это уж совсем дилетантство.

Автор: lecharton 8.9.2011, 11:19

Да ничего, я же за советом и пришла.
Скрипт не мой. А переписать надо.

Нужно чтобы было два столбца, а не один как сейчас.
Не знаю как это сделать из того что имеется.

Автор: infarch 8.9.2011, 12:25

А почему вы думаете что должно быть 2 столбца? Этот скрипт генерирует нечто вроде этого:

Код



<table border="0" class="content3" width="100%" height="" cellspacing="0" cellpadding="0">
  <tr>
    <td class="content2">
      <table border="0" class="content9" width="100%" height="" cellspacing="0" cellpadding="2">
        <tr><td class="content9" ><a href="/rubrika/?r=1">Lorem ipsum</a></td></tr>
        <tr><td class="content9" ><a href="/rubrika/?r=2">Lorem ipsum</a></td></tr>
      </table>
    </td>
  </tr>
</table>

Получается странная структура: таблица с одной колонкой, а в нее вложена вторая таблица опять-таки с одной колонкой. Естественно что эта колонка занимает всю ширину, других ведь нет smile

Именно поэтому я упоминал шаблонизатор - гораздо проще формировать хтмл.

Автор: lecharton 8.9.2011, 12:54

Я говорю о том, что если во внутреннюю таблицу дописать еще колонку, то она остается узкой. Первая колонка не дает ей места.

Мне надо чтобы тоже самое выдавалось в два столбца.

Убрала внешнюю таблицу. Вместо нее создала таблицу в файле в который этот скрипт и подгружается. Т.е. теперь есть html таблица, в ней две колонки, в первую подгружается этот скрипт с условием, id<15, во вторую точно такой же с условием >15. Не работает, подгружает только первый скрипт дальше вообще ничего не грузит.

Автор: infarch 8.9.2011, 13:24

Подумайте вот над этим:

Код


use strict;
use warnings;

my @data;
foreach(1..29){
    push @data, [$_, "Line $_"];
}

print "<table width='100%'>\n";

my $columns = 2;
my $rows = int((@data+$columns-1) / $columns);

my $rough_width = int(100/$columns);

for(my $r=0; $r<$rows; $r++){
    print "\t<tr>\n";
    for(my $c=0; $c<$columns; $c++){
        my $dataitem = shift @data;
        my $cell_content = "";
        if(defined $dataitem){
            my($id, $text) = @{ $dataitem };
            $cell_content = "<a href='someurl?id=$id'>$text</a>";
        }
        print "\t\t<td width='$rough_width%'>$cell_content</td>\n";
    }
    print "\t</tr>\n";
}

print "</table>";