make a directory tree from the output of find - Perl Snipplr Social Repository

Revision: 45690

at May 5, 2011 10:44 by alfirth

Initial Code

while (<DATA>){
  my $leaf = '$tree';
  while (m!(\w*?)/!g) { 
    $leaf .= "{$1}";
  } 
  eval "$leaf = {} unless (exists $leaf)";
}

Initial URL

Initial Description

Initial Title

make a directory tree from the output of find

Initial Tags

find

Initial Language

Perl