Help for this page

Select Code to Download


  1. or download this
    --- Graph/Writer/Dot.pm_original    Fri Jun 14 01:54:05 2002
    +++ Graph/Writer/Dot.pm    Mon Nov 15 10:31:35 2004
    ...
         %attributes = $graph->get_attributes($from, $to);
         @keys = grep(exists $attributes{$_}, @{$valid_attributes{'edge'}}
    +);
         if (@keys > 0)
    
  2. or download this
    #!/usr/bin/perl
    use warnings 'all';
    ...
    foreach my $area (@areas) {
      $writer->write_graph($graph{$area}, "$area.dot");
    }