Posted By

alfirth on 05/05/11


Tagged

tree hash find


Versions (?)

make a directory tree from the output of find


 / Published in: Perl
 

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

Report this snippet  

You need to login to post a comment.