URL https://opencores.org/ocsvn/an-fpga-implementation-of-low-latency-noc-based-mpsoc/an-fpga-implementation-of-low-latency-noc-based-mpsoc/trunk

Subversion Repositories an-fpga-implementation-of-low-latency-noc-based-mpsoc

[/] [an-fpga-implementation-of-low-latency-noc-based-mpsoc/] [trunk/] [mpsoc/] [perl_gui/] [lib/] [perl/] [temp.pl] - Blame information for rev 43

Go to most recent revision | Details | Compare with Previous | View Log


#!/usr/bin/perl -w
use strict;
use GraphViz;
 
my $g = GraphViz->new();
 
$g->add_node('London');
$g->add_node('Paris', label => 'City of\nlurve');
$g->add_node('New York');
 
$g->add_edge('London' => 'Paris');
$g->add_edge('London' => 'New York', label => 'Far');
$g->add_edge('Paris' => 'London');
 
print $g->as_png;

Line No.	Rev	Author	Line
1	43	alirezamon	`#!/usr/bin/perl -w`
2	38	alirezamon	`use strict;`
3	43	alirezamon	`use GraphViz;`
4	41	alirezamon
5	43	alirezamon	`my $g = GraphViz->new();`
6
7			`$g->add_node('London');`
8			`$g->add_node('Paris', label => 'City of\nlurve');`
9			`$g->add_node('New York');`
10
11			`$g->add_edge('London' => 'Paris');`
12			`$g->add_edge('London' => 'New York', label => 'Far');`
13			`$g->add_edge('Paris' => 'London');`
14
15			`print $g->as_png;`

Browse

Tools

Subversion Repositories an-fpga-implementation-of-low-latency-noc-based-mpsoc

[/] [an-fpga-implementation-of-low-latency-noc-based-mpsoc/] [trunk/] [mpsoc/] [perl_gui/] [lib/] [perl/] [temp.pl] - Blame information for rev 43