perl - 使用 perl 到框图的层次结构

Question

我有不同文件和子文件的结构化层次结构。我想将其转换为框图。

现在的问题是——perl 是直接还是间接支持这种想法？

如果您知道任何其他解决方案/解决方法，请分享。提前致谢。

Answer 1

您可以查看GraphViz。这是介绍和CPAN 链接。以及来自我不知道的某些来源的示例代码：

use strict;
use warnings;
use IO::Dir;
use GraphViz;
use GraphViz::Small;
use GraphViz::No;

my $directory = './';

my $graph = GraphViz::No->new(directed => 0, layout => 'twopi');

walk($directory);

sub walk {
  my($dir, $parent) = @_;
  $graph->add_node($dir) unless defined $parent;
  my $d = IO::Dir->new($dir);
  foreach my $file ($d->read) {
    next if $file =~ /^\./;
    if (-f $dir . $file) {
      $graph->add_node($dir . $file, label => $file);
      $graph->add_edge($dir => $dir . $file);
    } elsif (-d $dir . $file) {
      $graph->add_node($dir . $file . '/', label => $file . '/');
      $graph->add_edge($dir => $dir . $file . '/');
      walk($dir . $file . '/', $dir);
    }
  }
}

$graph->as_png("directories.png");