perl - 如何使用 Perl 将连接数据线转换为方案 block ？

Question

我正在寻找一种将信号连接转换为简单方案或图形的方法。

假设我有 2 个组件，它们周围有 2 条线路/信号:

component A:
 input - S1
 output - S2

component B: 
 input - S2
 output - S1

这将是输入数据文件，输出将是一个方案，将其显示为 2 个 block ，周围有连接线或图表。

我想知道在 Perl 的世界中是否存在这样的实现。

Answer 1

听起来你想要像 graphviz 这样的东西图形生成器。

它是用C写的，但是有一个Perl接口(interface):GraphViz .

例子:

use GraphViz;
use File::Slurp qw(write_file);

my $g = GraphViz->new;
$g->add_node('componentA');
$g->add_node('componentB');
$g->add_edge('componentB' => 'componentA', label => 'S1');
$g->add_edge('componentA' => 'componentB', label => 'S2');

write_file('out.png', $g->as_png);

您可以加载输入数据并通过信号编号上的散列来跟踪组件连接，然后为每个调用 add_edge。

输出:

graphviz output http://img704.imageshack.us/img704/2624/outd.png

(标签是可选的)。