Advanced Search

make a directory tree from the output of find

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

Expand | Embed | Plain Text

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.