Linux Cross Reference
cvs/emstar/link/neighbor/graph-neighbors.pl

   #!/usr/bin/perl
   
   open(GRAPHVIZ, "|dot -Tps > graph.ps");
   
   print GRAPHVIZ "graph test {\n";
   
   for ($i = 1; $i < 100; $i++) {
       next unless open(NEIGHBORS, "/dev/sim/$i/link/0/neighbors");
   
      while (<NEIGHBORS>) {
          next unless /active/;
  
          ($id) = split;
  
          print GRAPHVIZ "$i -- $id;\n";
      }
  
      close(NEIGHBORS);
  }
  
  print GRAPHVIZ "}\n";
  
  close(GRPAHVIZ);
  print "output written to graph.ps\n";