make a directory tree from the output of find


/ Published in: Perl
Save to your folder(s)



Copy this code and paste it in your HTML
  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


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.