script/svg_from_csv.pl

   1 #!/usr/bin/env perl
   2
   3 use lib 'lib';
   4 use strict;
   5 use warnings;
   6 use Text::Tradition::Graph;
   7
   8 my $collation_graph = Text::Tradition::Graph->new(
   9                                                    'CSV' => $ARGV[0],
  10                                                    'base' => $ARGV[1],
  11                                                    );
  12
  13 print $collation_graph->as_svg();
  14 print STDERR "Done\n";