3 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
digraph "g" {
size="6,6";
node [color=lightblue2, style=filled];
"Anbindung"->"Subnetz1";
"Anbindung"->"Subnetz2";
"Subnetz1"->"Netzwerkomponente1";
"Subnetz1"->"Netzwerkomponente2";
"Subnetz2"->"Netzwerkomponente3";
"Subnetz2"->"Netzwerkomponente4";
"Subnetz2"->"Netzwerkomponente5";
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
use strict;
use warnings;
use Graph;
use Graph::Writer::Dot;
my $graph = Graph->new();
$graph->add_edge('a' => 'b');
$graph->set_attribute('color', 'a', 'red');
my $writer = Graph::Writer::Dot->new();
$writer->write_graph($graph, 'mygraph.dot');
system("dot -Tpng mygraph.dot -o mygraph.png");
3 Einträge, 1 Seite |