bin/dirlistbases

   1 #! /usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 my $tree;
   6 LINE: while (<>) {
   7         chomp;
   8         my $base=\$tree;
   9         warn($_),next if !s#^/##;
  10         warn($_),next if m#//#;
  11         warn($_),next if m#/$#;
  12         for (split qr#/#) {
  13                 next LINE if ${$base}->{""};
  14                 $base=\(${$base}->{$_});
  15                 }
  16         ${$base}->{""}=1;
  17         }
  18 #use Data::Dumper;
  19 #print Dumper $tree;
  20
  21 sub out($$);
  22 sub out($$)
  23 {
  24 my($base,$where)=@_;
  25
  26         if ($base->{""}) {
  27                 print $where."\n";
  28                 return;
  29                 }
  30         for (sort keys(%$base)) {
  31                 next if $_ eq "";
  32                 out($base->{$_},"$where/$_");
  33                 }
  34 }
  35
  36 out($tree,"");