40fa7f5eb1334549e1d8ec2a33ab049c4c0dbd85
[scpubgit/stemmatology.git] / 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 $collation_graph = Text::Tradition->new( 
9                                                    'CSV' => $ARGV[0],
10                                                    'base' => $ARGV[1],
11                                                    );
12
13 print $collation_graph->as_svg();
14 print STDERR "Done\n";