print и пробелы perl

Модератор: Модераторы разделов

Аватара пользователя
gcc
Сообщения: 526
ОС: FreeBSD 8.0 CURRENT

print и пробелы perl

Сообщение gcc »

есть строка:

Код: Выделить всё

    print ' ' x ($level * 2), "$item ($id) \n";


как сделать массив хэшей чтобы были отступы и в шаблоне чтобы было видно пробелы?

пробовал не получается, в самом html пробелов вроде бы нету, как быть?

так не работает:

Код: Выделить всё

    push @{$tree_a}, { 'level' => ' ' x ($level * 2), 'item' => $item, 'id' => $id };


шаблон

Код: Выделить всё

<TABLE border="0" cellspacing="1" cellpadding="0" width="100%" id="left_menu">
    <TMPL_LOOP NAME="tree">
         <TMPL_VAR NAME="level"> <TMPL_VAR NAME="item">  <TMPL_VAR NAME="id"> <br>
    </TMPL_LOOP>
 </TABLE>


надо чтобы было примерно:
Изображение

пример реализации самого вывода дерева тут
http://www.dbpd.com/vault/9810/edb.html
Спасибо сказали:
Аватара пользователя
minoru-kun
Сообщения: 621
ОС: Debian GNU/Linux

Re: print и пробелы perl

Сообщение minoru-kun »

Никаких извратов с размножением пробелов не нужно.
http://www.w3schools.com/TAGS/tag_li.asp
Спасибо сказали:
Аватара пользователя
gcc
Сообщения: 526
ОС: FreeBSD 8.0 CURRENT

Re: print и пробелы perl

Сообщение gcc »

minoru-kun писал(а):
09.02.2009 08:28
Никаких извратов с размножением пробелов не нужно.
http://www.w3schools.com/TAGS/tag_li.asp


дерево много структурное, может быть более 5 подразделов в каждом разделе...

как оно будет выглядет? пробелы для того чтобы было видно где под раздел...
Спасибо сказали:
Аватара пользователя
nuclear17
Сообщения: 117
ОС: linux/mac/win

Re: print и пробелы perl

Сообщение nuclear17 »

Собственно мой код для подобной задачи

Код: Выделить всё

<table id='newsmodule' width='100%' style='border-right-width:0px' border='0'>
<TMPL_LOOP NAME=CATS_LOOP>
<TMPL_IF NAME=CAT_SEPARATOR>
 <th id='separator' width='100%' colspan='2'><TMPL_VAR NAME=CAT_NAME></th>
<TMPL_ELSE>
<tr>
<TMPL_IF NAME=IS_UNCATS>
 <TMPL_IF NAME=OPENED>
  <td>
   <img id='n<TMPL_VAR NAME=CAT_ID>' src='<TMPL_VAR NAME=HT_PATH>modules/newsmodule/minus.gif' onclick='opencats("<TMPL_VAR NAME=CAT_ID>")'>
  </td>
 <TMPL_ELSE>
   <td>
    <img id='n<TMPL_VAR NAME=CAT_ID>' src='<TMPL_VAR NAME=HT_PATH>modules/newsmodule/plus.gif' onclick='opencats("<TMPL_VAR NAME=CAT_ID>")'>
   </td>
 </TMPL_IF>
<TMPL_ELSE>
 <td>
  <img src='<TMPL_VAR NAME=HT_PATH>modules/newsmodule/join.gif'/>
 </td>
</TMPL_IF>
 <td>
  <a href='index.pl?mod=newsmodule&action=shownews&id=<TMPL_VAR NAME=CAT_ID>'><TMPL_VAR NAME=CAT_NAME></a>
 </td>
</tr>
<TMPL_IF NAME=IS_UNCATS>
 <tr><td colspan='2' style='padding-left: 10px'><div id='<TMPL_VAR NAME=CAT_ID>'
 <TMPL_IF NAME=OPENED>
  style='DISPLAY:block;' >
 <TMPL_ELSE>
  style='DISPLAY:none;' >
 </TMPL_IF>
 <table id='newsmodule'>
  <TMPL_VAR NAME=CATS_TEXT>
 </table>
</div>
</td>
</tr>
</TMPL_IF>
</TMPL_IF>
</TMPL_LOOP>
</table>
Спасибо сказали:
Аватара пользователя
gcc
Сообщения: 526
ОС: FreeBSD 8.0 CURRENT

Re: print и пробелы perl

Сообщение gcc »

а где пробелы? где ключевые моменты?
Спасибо сказали:
Аватара пользователя
nuclear17
Сообщения: 117
ОС: linux/mac/win

Re: print и пробелы perl

Сообщение nuclear17 »

оно за счет padding-left: 10px делает отступ
Спасибо сказали: