StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<p>I'd skip trying to use a complex regex. Instead write a simple parser and build up a tree.</p> <p>Here's a rough and ready implementation. It's only optimized for lazy coding. You may want to use libraries from CPAN to build your parser and your tree nodes. </p> <pre><code>#!/usr/bin/perl use strict; use warnings; my $document = Node->new(); my $current = $document; while ( my $line = <DATA> ) { if ( $line =~ /^=+\s/ ) { my $current_depth = $current->depth; my $line_depth = Node->Heading_Depth( $line ); if ( $line_depth > $current_depth ) { # child node. my $line_node = Node->new(); $line_node->heading( $line ); $line_node->parent( $current ); $current->add_children( $line_node ); $current = $line_node; } else { my $line_node = Node->new(); while ( my $parent = $current->parent ) { if ( $line_depth == $current_depth ) { # sibling node. $line_node->heading( $line ); $line_node->parent( $parent ); $current = $line_node; $parent->add_children( $current ); last; } # step up one level. $current = $parent; } } } else { $current->add_children( $line ); } } use Data::Dumper; print Dumper $document; BEGIN { package Node; use Scalar::Util qw(weaken blessed ); sub new { my $class = shift; my $self = { children => [], parent => undef, heading => undef, }; bless $self, $class; } sub heading { my $self = shift; if ( @_ ) { $self->{heading} = shift; } return $self->{heading}; } sub depth { my $self = shift; return $self->Heading_Depth( $self->heading ); } sub parent { my $self = shift; if ( @_ ) { $self->{parent} = shift; weaken $self->{parent}; } return $self->{parent}; } sub children { my $self = shift; return @{ $self->{children} || [] }; } sub add_children { my $self = shift; push @{$self->{children}}, @_; } sub stringify { my $self = shift; my $text = $self->heading; foreach my $child ( $self->children ) { no warnings 'uninitialized'; $text .= blessed($child) ? $child->stringify : $child; } return $text; } sub Heading_Depth { my $class = shift; my $heading = shift || ''; $heading =~ /^(=*)/; my $depth = length $1; return $depth; } } __DATA__ = Heading (1) Some text = Heading (2) Some more text == Subheading (3) Some details here == Subheading (3) Some details here = Heading (4) </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload