вложенные списки

[ocehb]

задача:

есть файл:

---

Вася (1)
Маша (1)
Федя (2)
Коля (1)
Никита (2)

---

формат — имя + глубина вложенности.
написать обрамление через <ul> и <li>



решение:

# perl -lne 'BEGIN { $curr = 0; } 
  if (m#(.+?)\s+\((\d+)\)$#) { print "<ul>" if ($curr < $2);
                               print "</ul>" if ($curr > $2);
                               $curr = $2; print "<li>$1</li>"; }
  END { print "</ul>" x $curr }'

результат:

---

• Вася


• Маша




• Федя




• Коля




• Никита

---

Comments

[gerdlerin.livejournal.com]

А если

Маша (1)
Федя (2)
Коля (3)
Никита (1)

[ocehb]

тогда просто при открытии/закрытии <ul> приумножать на разницу между $curr и $2