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

Question

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

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

component A:
 input - S1
 output - S2

component B: 
 input - S2
 output - S1

这将是输入数据文件,输出将是一个方案,将其显示为2个块,其周围有连接线或插图.

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

Answer 1

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

它是用C语言编写的,但有一个Perl接口: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输出http://img704.imageshack.us/img704/2624/outd.png

(标签是可选的).