Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re: directory tree to hash of arrays

by Kenosis (Priest)
on Mar 08, 2014 at 00:27 UTC ( #1077473=note: print w/replies, xml ) Need Help??

in reply to directory tree to hash of arrays

Perhaps the following will be helpful:

use strict; use warnings; use Cwd; use JSON; my %hash; my $currDir = Cwd::cwd(); push @{ $hash{$currDir} }, { name => $_, size => ( stat($_) )[7] } for + <*>; my $j = encode_json \%hash; print $j;

Sample output:

{"/home/user/programming/Perl/tmp":[{"name":"File1.txt","size":63},{"n +ame":"File2.txt","size":55},{"name":"","size":196},{"name":"t","size":197}]}

When run, it gets the current dir, uses it as the hash key whose value is a reference to an array of (file and filesize) hashes. That hash is later json encoded. Substitute your own path in $currDir, as needed.

Replies are listed 'Best First'.
Re^2: directory tree to hash of arrays
by mabossert (Scribe) on Mar 08, 2014 at 00:59 UTC

    Thanks for the help! I should have been more clear in the original post. I need it to be recursive...Hence the link I put in the original post.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1077473]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (6)
As of 2023-02-02 14:27 GMT
Find Nodes?
    Voting Booth?
    I prefer not to run the latest version of Perl because:

    Results (19 votes). Check out past polls.