如何从目录树在 Perl 中构建层次哈希

Question

我正在尝试构建这样的结构。

{
  "file1": "supersong.mp3",
  "file2": "supersong2.mp3",
  "file3": "text.txt",
  "file4": "tex2t.txt",
  "file5": "text3.txt",
  "file6": "json.pl",
  "directory_movies": [ 
      "file1": "supersong.mp3",
      "file2": "supersong2.mp3",
      "file3": "text.txt",
      "file4": "tex2t.txt",
      "file5": "text3.txt",
      "file6": "json.pl",
      "directory_sub_movies": [ 
           "file1": "supersong.mp3",
           "file2": "supersong2.mp3",
           "file3": "text.txt",
           "file4": "tex2t.txt",
           "file5": "text3.txt",
           "file6": "json.pl",
  ]

] };

因此，在我的例子中，unix 中的任何目录层次结构都是如此。所以我们有简单的文件或目录，如果它是目录它是嵌套哈希等等递归。
我需要在 perl 中将它表示为散列，我发现的最简单的方法是使用 File::Find 模块。
它工作正常，但我不知道如何在散列中保存层次结构以如上所述嵌套。
这是我的测试脚本。这可以正确确定当前项目的类型。

sub path_checker {
    if (-d $File::Find::name) {
        print "Directory " . $_ . "\n";   
    }
    elsif (-f $File::Find::name) {
        print "File " . $_ . " Category is " . basename($File::Find::dir) . "\n";  
    }

}
sub parse_tree {
    my ($class,$root_path) = @_;
    File::Find::find(\&path_checker, $root_path);
}

请帮助修改它以创建像我上面描述的结构。我会很感激。

Answer 1

子文件夹也应该是散列，而不是数组，

use strict;
use warnings;

# use Data::Dumper;
use File::Find;
use JSON;

sub parse_tree {
    my ($root_path) = @_;

    my %root;
    my %dl;
    my %count;

    my $path_checker = sub {
      my $name = $File::Find::name;
      if (-d $name) {
        my $r = \%root;
        my $tmp = $name;
        $tmp =~ s|^\Q$root_path\E/?||;
        $r = $r->{$_} ||= {} for split m|/|, $tmp; #/
        $dl{$name} ||= $r;
      }
      elsif (-f $name) {
        my $dir = $File::Find::dir;
        my $key = "file". ++$count{ $dir };
        $dl{$dir}{$key} = $_;
      }
    };
    find($path_checker, $root_path);

    return \%root;
}

print encode_json(parse_tree("/tmp"));

如何从目录树在 Perl 中构建层次哈希

How to build hierarhical hash in Perl from directory tree

tree

recursion

perl

hash

subroutine