Re: file explorer type window

Here's code running against a subtree from my system where I stuffed the tree output into a DATA section just to make a self-contained test case. I find it easier to read the YAML output than the Data::Dump output.

#!/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
[download]

And here's the output:

---
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: {}
[download]

Note that "tree" in its basic form does not indicate whether a name is a file or a directory.

Comment on Re: file explorer type window Select or Download Code

Replies are listed 'Best First'.
Re^2: file explorer type window by Anonymous Monk on Aug 17, 2015 at 17:07 UTC
Oops on the level line, (though it still works :) `my $level = length($1 // '') / 4;` [download]	[reply] [d/l]
Re^3: file explorer type window by perl1234 (Initiate) on Aug 18, 2015 at 13:35 UTC
Dear All, Many thanks for your perls of wisdom. Here is a crude prototype of what I am interested in. #!/usr/bin/perl # http://perlmonks.org/?node_id=1138867 use strict; use warnings; use Tk::ObjScanner; my @depth = {}; open (DATA, "data.txt");#same as what was in the example above while(<DATA>) { /\S/ or last; chomp $_; /([\\| ]?[\\|`]-- )?(.)/ or next; my $a=$1; my $b=$2; if (!defined($a)){ $a=""; } if (!defined($b)){ $b=""; } my $y=length($a); my $level = $y/4; $depth[$level]{$2} = $depth[$level + 1] = {}; } #use YAML; print Dump $depth[0]; close DATA; MainWindow->new->ObjScanner(caller => $depth[0])->pack; + Tk::MainLoop; [download]	[reply] [d/l]