प्रयास करना १
एक उपाय सिर्फ पर्ल का उपयोग करके, हैश संरचना का एक साधारण हैश लौटाता है। ओपी से पहले JSON के डेटा प्रारूप को स्पष्ट किया।
#! /usr/bin/perl
use File::Find;
use JSON;
use strict;
use warnings;
my $dirs={};
my $encoder = JSON->new->ascii->pretty;
find({wanted => \&process_dir, no_chdir => 1 }, ".");
print $encoder->encode($dirs);
sub process_dir {
return if !-d $File::Find::name;
my $ref=\%$dirs;
for(split(/\//, $File::Find::name)) {
$ref->{$_} = {} if(!exists $ref->{$_});
$ref = $ref->{$_};
}
}
File::Findमॉड्यूल यूनिक्स findकमांड के समान तरीके से काम करता है । JSONमॉड्यूल JSON में पर्ल चर और उन्हें धर्मान्तरित लेता है।
find({wanted => \&process_dir, no_chdir => 1 }, ".");
वर्तमान कार्यशील निर्देशिका सबरूटीन कॉल करने से फ़ाइल संरचना नीचे पुनरावृति करेंगे process_dirतहत प्रत्येक फ़ाइल / निर्देशिका के लिए "।", और no_chdirबताई पर्ल एक जारी करने के लिए नहीं chdir()प्रत्येक निर्देशिका यह पाता है के लिए।
process_dir वर्तमान परीक्षित फ़ाइल निर्देशिका नहीं है, तो रिटर्न:
return if !-d $File::Find::name;
हम तो मौजूदा हैश का एक संदर्भ हड़पने %$dirsमें $ref, फ़ाइल पथ के आसपास विभाजित /के साथ और पाश forप्रत्येक पथ के लिए एक नया हैश कुंजी जोड़ने।
एसएलएम जैसी निर्देशिका संरचना बनाना:
mkdir -p dir{1..5}/dir{A,B}/subdir{1..3}
आउटपुट है:
{
"." : {
"dir3" : {
"dirA" : {
"subdir2" : {},
"subdir3" : {},
"subdir1" : {}
},
"dirB" : {
"subdir2" : {},
"subdir3" : {},
"subdir1" : {}
}
},
"dir2" : {
"dirA" : {
"subdir2" : {},
"subdir3" : {},
"subdir1" : {}
},
"dirB" : {
"subdir2" : {},
"subdir3" : {},
"subdir1" : {}
}
},
"dir5" : {
"dirA" : {
"subdir2" : {},
"subdir3" : {},
"subdir1" : {}
},
"dirB" : {
"subdir2" : {},
"subdir3" : {},
"subdir1" : {}
}
},
"dir1" : {
"dirA" : {
"subdir2" : {},
"subdir3" : {},
"subdir1" : {}
},
"dirB" : {
"subdir2" : {},
"subdir3" : {},
"subdir1" : {}
}
},
"dir4" : {
"dirA" : {
"subdir2" : {},
"subdir3" : {},
"subdir1" : {}
},
"dirB" : {
"subdir2" : {},
"subdir3" : {},
"subdir1" : {}
}
}
}
}
प्रयास २
विभिन्न डेटा संरचना के साथ अब ठीक है ...
#! /usr/bin/perl
use warnings;
use strict;
use JSON;
my $encoder = JSON->new->ascii->pretty; # ascii character set, pretty format
my $dirs; # used to build the data structure
my $path=$ARGV[0] || '.'; # use the command line arg or working dir
# Open the directory, read in the file list, grep out directories and skip '.' and '..'
# and assign to @dirs
opendir(my $dh, $path) or die "can't opendir $path: $!";
my @dirs = grep { ! /^[.]{1,2}/ && -d "$path/$_" } readdir($dh);
closedir($dh);
# recurse the top level sub directories with the parse_dir subroutine, returning
# a hash reference.
%$dirs = map { $_ => parse_dir("$path/$_") } @dirs;
# print out the JSON encoding of this data structure
print $encoder->encode($dirs);
sub parse_dir {
my $path = shift; # the dir we're working on
# get all sub directories (similar to above opendir/readdir calls)
opendir(my $dh, $path) or die "can't opendir $path: $!";
my @dirs = grep { ! /^[.]{1,2}/ && -d "$path/$_" } readdir($dh);
closedir($dh);
return undef if !scalar @dirs; # nothing to do here, directory empty
my $vals = []; # set our result to an empty array
foreach my $dir (@dirs) { # loop the sub directories
my $res = parse_dir("$path/$dir"); # recurse down each path and get results
# does the returned value have a result, and is that result an array of at
# least one element, then add these results to our $vals anonymous array
# wrapped in a anonymous hash
# ELSE
# push just the name of that directory our $vals anonymous array
push(@$vals, (defined $res and scalar @$res) ? { $dir => $res } : $dir);
}
return $vals; # return the recursed result
}
और फिर प्रस्तावित निर्देशिका संरचना पर स्क्रिप्ट चला रहा है ...
./tree2json2.pl .
{
"dir2" : [
"dirB",
"dirA"
],
"dir1" : [
"dirB",
{
"dirA" : [
"dirBB",
"dirAA"
]
}
]
}
मैं सही पाने के लिए इस बहुत लानत मुश्किल पाया (विशेष रूप से "हैश अगर उप निर्देशिका, सरणी अगर नहीं, ओह शीर्ष शीर्ष स्तर, तो बस वैसे भी" तर्क है) दिया। तो मुझे आश्चर्य होगा कि यह कुछ ऐसा था जो आप के साथ कर सकते थे sed/ awk... लेकिन तब स्टीफन ने इस पर ध्यान नहीं दिया था फिर भी मैंने शर्त लगाई :)