시도 1
펄만 사용하여 해시 구조의 간단한 해시를 반환하는 솔루션. OP가 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
모듈은 unix find
명령 과 유사한 방식으로 작동합니다 . 이 JSON
모듈은 perl 변수를 가져 와서 JSON으로 변환합니다.
find({wanted => \&process_dir, no_chdir => 1 }, ".");
process_dir
"."아래의 각 파일 / 디렉토리에 대한 서브 루틴 을 호출하는 현재 작업 디렉토리에서 파일 구조를 반복 하고 찾은 각 디렉토리에 대해 no_chdir
a를 발행하지 말라고 지시 chdir()
합니다.
process_dir
현재 검사 된 파일이 디렉토리가 아닌 경우를 리턴합니다.
return if !-d $File::Find::name;
그런 다음 기존 해시의 참조를 %$dirs
로 $ref
나누고 파일 경로를 분할하고 각 경로에 새 해시 키를 추가하여 /
반복 for
합니다.
slm과 같은 디렉토리 구조를 만드는 것은 다음과 같습니다.
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" : {}
}
}
}
}
시도 2
이제 다른 데이터 구조로 ...
#! /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
...하지만 스테판은 아직 이것을 보지 못했습니다 :)