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;
   7
   8 my $tradition = Text::Tradition->new(
   9                                       'CSV' => $ARGV[0],
  10                                       'base' => $ARGV[1],
  11                                       );
  12
  13 print $tradition->collation->as_svg();
  14 print STDERR "Done\n";