#!/usr/bin/perl

# http://perlmonks.org/?node_id=1138867

use strict;
use warnings;

my @depth = {};

while(<DATA>)
  {
  /\S/ or last;
  /([| ]*?[|`]-- )?(.*)/ or next;
  my $level = length($1 // 0) / 4;
  $depth[$level]{$2} = $depth[$level + 1] = {};
  }
use YAML; print Dump $depth[0];
#use Data::Dump qw(pp); pp $depth[0];

__DATA__
wiki
|-- RicksWiki_3_3
|   |-- RCS
|   |   |-- README,v
|   |   |-- fast,v
|   |   `-- go,v
|   |-- README
|   |-- cgi-bin
|   |   |-- RCS
|   |   |   |-- server.pl,v
|   |   |   `-- wiki.pl,v
|   |   |-- server.pl
|   |   `-- wiki.pl
|   |-- doc
|   |   |-- RCS
|   |   |   `-- index.html,v
|   |   `-- index.html
|   |-- fast
|   |-- go
|   |-- history
|   |   |-- CodeNotes,v
|   |   |-- FormattingRules,v
|   |   `-- PlayGround,v
|   |-- log.wiki
|   `-- pages
|       |-- CamelCase
|       |-- CodeNotes
|       |-- FormattingComments
|       |-- FormattingRules
|       |-- InstallInstructions
|       |-- MainPage
|       |-- OneMinuteWiki
|       |-- PlayGround
|       |-- RicksWikiFeatures
|       `-- SeedPage
`-- RicksWiki_3_3.tgz

8 directories, 27 files