script/svg_from_csv.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 my $tradition = Text::Tradition->new(
  12     'CSV' => $ARGV[0],
  13     'base' => $ARGV[1],
  14     'linear' => 0,
  15     );
  16
  17
  18 print $tradition->collation->as_svg();
  19 print STDERR "DONE\n";
  20 __END__
  21 my $rows = 0;
  22 my $matrix = [];
  23 foreach my $pos ( $collation_graph->{'positions'}->all ) {
  24     my @p_nodes = $collation_graph->{'positions'}->nodes_at_position( $pos );
  25     $rows = scalar @p_nodes
  26         if $rows < scalar @p_nodes;
  27     push( @$matrix, \@p_nodes );
  28 }
  29 print "<html><head><title>A table</title></head><body><table>\n";
  30 foreach my $i ( 0 .. $rows-1 ) {
  31     print "\t<tr>\n";
  32     foreach my $col( @$matrix ) {
  33         my $str = '';
  34         if( $col->[$i] ) {
  35             $str = $collation_graph->node( $col->[$i] )->label;
  36         }
  37         printf( "\t\t<td>%s</td>\n", $str );
  38     }
  39     print "\t</tr>\n";
  40 }
  41 print "</table></body></html>\n";