projects
/
scpubgit/stemmatology.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
3a27521d7704a4de6e380197923780c5f5347a1c
[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 $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";