script/svg_from_graphml.pl

   1 #!/usr/bin/perl
   2
   3 use lib 'lib';
   4 use strict;
   5 use warnings;
   6 use Text::Tradition;
   7
   8 # First: read the base. Make a graph, but also note which
   9 # nodes represent line beginnings.
  10
  11 open( GRAPH, $ARGV[0] ) or die "Could not read file $ARGV[0]";
  12 my @lines = <GRAPH>;
  13 close GRAPH;
  14 my $graphml_str = join( '', @lines );
  15
  16 my $tradition = Text::Tradition->new(
  17     'GraphML' => $graphml_str,
  18     );
  19
  20 print $tradition->collation->as_svg();
  21 print STDERR "DONE\n";