Eingerückte hierarchische Liste (HTML) erzeugen (solved) (Allgemeines zu Perl)

[thread]21525[/thread]

Eingerückte hierarchische Liste (HTML) erzeugen [solved]

Tags: perl5 HTML Similar Threads

Readers: 7

Articles: hide open all | hide show old branches

+10 replies
GwenDragon

2023-12-21 11:45

User since
2005-01-17
14749 articles
Admin1

Folgender Fall: Es existieren Textteile, die als geordnete oder nummerierte Liste um x-Stellen eingerückt werden sollen.

Beispiel
@list_data = (
{ indent => 0, text => "Test 1" },
{ indent => 2, text => "Test 2" },
{ indent => 1, text => "Test 3" }, { indent => 1, text => "Test 4" },
{ indent => 3, text => "Test 5" },
);

Sicherlich kann ich sowas erzeugen (. ist hier Leerzeichen):
Test 1
..Test 2
.Test 3
.Test 4
...Test 5

Aber das wäre ja keine valide HTML-Liste mit ol-li- oder ul-li-Elementen.

Irgendeine Idee, wie ich mit Perl doch eine echte verschachtelte HTML-Liste bekomme (ohne irgendwelches JavaScript)?
Geht sowas auch ohne aufgeblasene Module von CPAN?
Last edited: 2023-12-21 11:54:44 +0100 (CET)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- rosti
  
  2023-12-21 13:18
  User since
  2011-03-19
  3481 articles
  BenutzerIn
  Ja. Du brauchst eine entsprechende Datenstruktur vom Parser, ein Array [ {}, {}...]; Wobei jedes Element ein Attribut parent haben muss was die Hierarchie abbildet.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
  
  [ { id => 1, headline => "Das ist eine Überschrift in H1", # root hat keinen parent }, { id => 2, headline => "Das ist eine Überschrift in H2", parentid => 1 }, { id => 3, headline => "Das ist auch eine Überschrift in H2", parentid => 1 }, { id => 4, headline => "Das ist Überschrift in H3 unter einer H2", parentid => 3 } ]
  
  Diese Liste, die der Parser erstellt drehst Du rum so daß jeder Knoten eine Liste der Child-Knoten bekommt:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  # hash id' children { 1 => [2,3] 3 => [4] }
  
  Dann kannst Du das rekursiv durchlaufen. Also erstelle erstmal diese beiden Strukturen dann helfe ich Dir gerne weiter.
  
  mfg
- hlubenow
  
  2023-12-21 14:22
  
  User since
  2009-02-22
  875 articles
  BenutzerIn
  
  Ich hatte kurz versucht, was zu schreiben, aber mir war nicht ganz klar, welchen Output Du haben möchtest.
  Ich würde also erstmal von Hand für einige Zeilen aufschreiben, wie der html-Output aussehen soll, und (erst) dann ein Skript schreiben, das dahin führt.
- +3 replies
- haj
  
  2023-12-21 18:45
  User since
  2015-01-07
  557 articles
  BenutzerIn
  Das mit den geschachtelten HTML-Listen verstehe ich nicht: Du hast in Deinem Beispiel Sprünge um zwei Einheiten "nach unten" (0 -> 2 und 1 -> 3). In einer geschachtelten HTML-Struktur geht es immer nur um eine Stufe "nach unten", wenn eine untergeordnete Liste aufgemacht wird. Die bekommt dann ein neues Bullet oder eine Nummer, zwei Bullets unmittelbar hintereinander sehen eigentlich immer falsch aus. "Nach oben" können aber beliebig viele Hierarchiestufen auf einmal wegfallen.
  
  Man kann das entweder mit Rekursion lösen, wie von rosti vorgeschlagen, oder direkt die Liste durcharbeiten.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
  
  use 5.024; use strict; use warnings; my @list_data = ( { indent => 0, text => "Test 1" }, { indent => 2, text => "Test 2" }, { indent => 1, text => "Test 3" }, { indent => 1, text => "Test 4" }, { indent => 3, text => "Test 5" }, ); my $type = q(ol); my $level = -1; my $html = q(<!DOCTYPE html>); for my $element (@list_data) { if ($level < $element->{indent}) { # Stufen einfuegen $html .= qq(<$type><li>) x ($element->{indent} - $level); } elsif ($level > $element->{indent}) { # Stufen schliessen $html .= qq(</li></$type><li>) x ($level - $element->{indent}); } else { # Gleiche Ebene $html .= q(</li><li>); } $level = $element->{indent}; $html .= $element->{text}; } # Cleanup: Close open lists $html .= q(</li></ol>) x ($level+1); print $html;
  - rosti
    
    2023-12-21 19:06
    
    User since
    2011-03-19
    3481 articles
    BenutzerIn
    
    Die Einrückung ergibt sich aus einer Baumstruktur. Um diese darstellen zu können muss jede Node seine Parent-Node kennen. Bis dahin ist das eine lineare Struktur und wenn diese vorliegt wird daraus eine Node -> [children] Relation erzeugt die zur Visualisierung rekursiv durchlaufen werden muss. mfg
  - GwenDragon
    
    2023-12-22 14:08
    
    User since
    2005-01-17
    14749 articles
    Admin1
    
    Danke, muss mal anwende auf die Textdaten meines Bekannten, ob das dann das erwünschte Markup erzeugt.
    
    Ich lasse nach den Feiertagen mal beim bekannten einen testlaufen mit der Quelle.
    Last edited: 2023-12-22 14:38:56 +0100 (CET)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- haj
  
  2023-12-21 21:07
  User since
  2015-01-07
  557 articles
  BenutzerIn
  Wenn es bei der Anwendung um die aus einer HTML-Seite geparsten Heading-Elemente geht, dann verstehe ich auch das Beispiel: In HTML-Seiten schreiben die Autoren keineswegs ihre Überschriften-Level in einer sinnvollen Abfolge. Und manchmal findet man auch Sachen wie dieses:
  
  Quote
  <span class="title">Eingerückte hierarchische Liste (HTML) erzeugen</span>
  
  Das sieht zwar im Browser aus wie eine Uberschrift, ist aber keine.
  
  Da kann man dann auch bei der Erzeugung des Inhaltsverzeichnisses auf eine hierarchisch geschachtelte Liste verzichten und direkt per CSS so einrücken, wie's dem Level entspricht:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  use 5.024; use strict; use warnings; my @list_data = ( { indent => 0, text => "Test 1" }, { indent => 2, text => "Test 2" }, { indent => 1, text => "Test 3" }, { indent => 1, text => "Test 4" }, { indent => 3, text => "Test 5" }, ); my $html = q(<!DOCTYPE html>); for my $element (@list_data) { $html .= qq(<div style="padding-left:$element->{indent}em">$element->{text}</div>) } print $html;
  
  Von einer verschachtelten Liste hat man nur dann etwas, wenn man auf der DOM-Struktur weiterarbeitet und zum Beispiel per JavaScript die Einträge unter einem vorgegebenen Level oder Eintrag ausblendet.
  - GwenDragon
    
    2023-12-22 14:06
    
    User since
    2005-01-17
    14749 articles
    Admin1
    
    Per CSS einzurücken wäre ein optische Möglichkeit, die hatte ich sowieso im Kopf, wenn keine Listen einfach möglich wären.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - GwenDragon
    
    2023-12-22 14:38
    
    User since
    2005-01-17
    14749 articles
    Admin1
    
    So eine Tagsuppe aus merkwürdig verhunzter Reifenfolge von HTML-Headings lässt sich sowieso nicht reparieren.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2023-12-25 18:31
  
  User since
  2005-01-17
  14749 articles
  Admin1
  
  Schade, der Bekannte nutzt nun irgendein jQuery-Plugin und ist zufrieden.
  
  Danke an Alle für die gemachten Tipps.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2023-12-21 11:45.